(navigation image)
Home American Libraries | Canadian Libraries | Universal Library | Community Texts | Project Gutenberg | Children's Library | Biodiversity Heritage Library | Additional Collections
Search: Advanced Search
Anonymous User (login or join us)
Upload
See other formats

Full text of "80 Microcomputing Magazine March 1985"

A CWO'I PUBLICATION 



Those # * $& 
Messages! 

A Beginner's Guide 
To Causes and Cures 



the magazine for TRS-80* users ^ 



March 1985 

USA $4.00 

Canada $4.50 



The Model 4 Sort 
That Tandy Forgot 

Tandy's 1200 HD: 
The Price Is Right 

Is Your Micro 
Tax Deductible? 



The Next Step 
BBS Express 
Basic Takes 
2000 Plus 




Circle 75 on Reader Service card 




It's evident when you can cover the MS-DOS 
unmatched in performance and value. 



Advanced Technology 
Tandy 2000 

The Tandy 2000 is the 
standard of excellence for 
MS-DOS based personal com- 
puters. Like IBM's PC AT, the 
Tandy 2000 performs up to 
three times faster than the 
IBM PC*. Each Tandy 2000 
disk drive offers over twice 



the PC's storage. And our 
color graphics offer twice the 
resolution, with twice as 
many colors. 

The Tandy 2000 comes 
with the industry standard 
MS-DOS operating system 
that lets you use the most 
popular and sophisticated 
programs on today's market. 



Programs like Lotus 1-2-3, 
dBase II, Multiplan, the 
pfsrseries and SuperCalc3. 

Tandy 2000 delivers a bet- 
ter solution— extraordinary 
quality with higher perfor- 
mance. A 256K Tandy 2000 
starts at just $2499. Your 
company can lease a system 
for only $95 a month* *. 




TANDY 
2000 




Engineered for Excellence 

We've been bringing the latest 
in electronic technology to the 
marketplace for over 60 years. 
The Tandy 2000 and the 
Tandy 1000 represent the 
state of the art in technology, 
quality and price breakthrough. 




uperior 



market with a line of computers 



The IBM PC XT's 
"Mirror Image" 

Here's a system that does 
everything IBM's XT can- 
but costs considerably less. 
A Tandy 1200 HD is compat- 
ible with virtually all soft- 
ware and hardware for the 
XT, yet is only S2999. And 
that includes'256K, a ten 
megabyte hard disk and a 
parallel printer interface. 



The New Tandy 1000 

And if you want more than 
just PC compatibility, then 
you need the new Tandy 
1000. Tandy 1000 puts it all 
together— including soft- 
ware. We call it DeskMate ", 
and it's word processing, 
spreadsheet analysis, elec- 
tronic filing, telecommunica- 
tions, a calendar and elec- 
tronic mail all on one disk. 



And unlike IBM's PC, the 
Tandy 1000 includes adapt- 
ers to use a monitor, printer, 
joysticks and light pen, as 
well as DOS and BASIC. With 
one-disk it's only SI 199. 

For the best in technology, 
support, service and value, 
stop by your local Radio 
Shack Computer Center to- 
day. We invite comparison! 



TANDY 

1200HD 



TANDY 
lOOO 

with 
DeskMate 







Available at over 1200 

Radio Shack Computer Centers and at 

participating Radio Shack stores and dealers. 

Radio /hack 

COMPUTER CENTERS 

A DIVISION OF TANDY CORPORATION 





Send me the new 1985 Computer Catalog. 

Mail to: Radio Shack, Dept. 85-A-410 
300 One Tandy Center, Fort Worth, TX 76102 



May1M4. • ■ Ptu •£*** m/ato tu T**, 






Cw». MASE i:; 

m m 



tepeKikrtwaMtmtt TMftercftn Cmp. 



Circle 126 on Reader Service card 



JMG 



has Great Programs, 
Great Service, and the 
Best Prices ... Always . 



IF YOU BOUGHT YOUR SOFTWARE ELSEWHERE, YOU PROBABLY PAID TOO MUCH. 

Welcome to our latest advertisement! Feel free to browse, take a look at our selection and our prices. We have the software 
for almost every purpose for TRS-80 Model l/lll and 4 computers; if you see something you like, we'd be more than happy to hear 
from you! 



GAMES! 



SUPREME RULER PLUS 

Our best selling game, a strategy/simula- 
tion program for one to nine players where 
you must control a country against human 
or computer opponents. 
Cassette or Disk, $26.50 



inFOCOIR 

Infocom produces an excellent line of text 
adventure games. Each can accept full 
sentence commands; the best programs 
of their kind anywhere. 

"Standard Level" S34.50 Each: 
PLANETFALL WITNESS 

ENCHANTER SEA STALKER 

"Intermediate Level" $39.50 Each: 
ZORK II ZORK III 

SORCERER INFIDEL 

"Very Difficult Level" $44.50 Each: 
DEADLINE STARCROSS 

SUSPENDED (Available 3/85) 



LOGIC 








FLIGHT SIMULATOR Disk $29.50 

(Reduced Cassette Version . . $24.50) 
Forest Fire Dispatcher $26.50 

OTHER GAMES 

APE Arcade Game (Disk) $14.50 

Sifter Shifter (2-4 Players) $ 8.50 

Battle of Zeighty (Strategy) $ 8.50 

Galaxy Invasion (Arcade Disk) . . $ 9.50 

CASSETTE OWNERS: Super-special "Big 
Five Fun Pack" (Galaxy Invasion, Super 
Nova. Attack Force, WEERD). 
Retail Price $60.00. Now Just, $19.50!! 

NUCLIEX 

A top-notch arcade-style game, with ex- 
cellent controls and 4 different screens. 
A great program, $14.50. 



THE BOOKSHELF 

Programmer's Guide to TRSDOS 6 $14.50 
ROM ROUTINES DOCUMENTED . $16.50 
Model III Assembly Language . . . $15.50 

Inside Super Utility 3.0/3.2 $14.50 

The "C" Programming Language . $17.50 
TRS-80 Disk & Other Mysteries . . $16.50 

Microsoft Basic Decoded $23.50 

TRSDOS 2.3 Decoded $23.50 

Machine Language Disk I/O $23.50 

The Custom TRS-80 $23.50 

How to do it on the TRS-80 $23.50 

Basic Faster & Better $23.50 

Basic Disk I/O Faster & Better . . . $23.50 

Basic F&B LIB or DEM disk $16.50 

Disk I/O F&B Disc $23.50 

Infocom INVISCLUES $ 6.50 

(Specify game) 

TAS Journal #19 — Special Issue 
Now In Stock! Special Prices: 

Journal and Disk $15.00 

Journal only $ 5.00 



The Adventure System 

A program by TAS that let's you create your 
own "Scott Adams" type adventures. You 
supply the story and ideas, and then put them 
together into a full adventure. $34.50. 



JMG's GAMES TOP TEN 

The top ten selling games, in order, for one 
month ending in December: 

1. Supreme Ruler Plus $26.50 

2. Flight Simulator $29.50 

3. ZORK II $39.50 

4. PLANETFALL $34.50 

5. NUCLIEX $14.50 

6. WITNESS $34.50 

7. ZORK III $39.50 

8. DEADLINE $44.50 

9. ENCHANTER $34.50 

10. Battle of Zeighty $ 8.50 



APPLICATION SOFTWARE 

HIGHLIGHTS 
LESCRIPT 

Our best-selling word processor, load- 
ed with features (many not found 
elsewhere). Great printer support, ease 
of use, full Model 4 support (including 
128 K RAM), and much more! 
Model l/lll and 4 (List $129.50). S94.50 



ELECTRIC WEBSTER $99.50 

An excellent spelling checker with a 

50.000 word dictionary; integrates with 

most word processors. Also allows you 

to add your own words. Special price, 

valid until March 15/85. 

Specify Mod l/lll or Mod 4 (List $149.95) 

$99.50 

Grammar or Hyphenation Option $38.50 

(each) 

KSoft's LOG and SUPERLOG 

These "Electronic Notebook" programs 
are truly amazing; they can access in- 
formation at the touch of a key. even 
when running other programs. 
SUPERLOG 4 contains many enhanced 
features for the model 4 as well. 
LOG Model I or III (specify) . . . $44.50 
SUPERLOG Model I or III (LDOS Only) 
$99.50 

DOSPLUS 

DOSPLUS is an excellent alternative to 

TRSDOS for both Model l/lll and Model 

4. DOSPLUS is easy to use. and comes 

with many extra utility programs and 

enhancements that make it well worth 

the price. 

DOSLUS 3.5, Model I or III (specify) . . 

$ 59.50 

DO SPLUS iVa w/MZAL Model 4 $119.50 

HYPERCROSS/XT 2.0 S84.50 

Transfer programs and files from, to or 
between CP/M, PC-DOS or MS-DOS 
disks! Supports almost all formats; 
VERY powerful! (Same program as 
Powersoft's new "Supercross"; list 
$99.95). 

Version 2.0 (NOT Ver 1), Mod. I, III or 4 
(specify) $84.50 






The Home Accountant $59.50 

A complete personal finance package; 

Model III only. 

DataGraph $69.50 

Prints graphs from spreadsheet data; 
Mod l/lll, or 4 (specify Mod & printer). 



THE SOURCE FOR 
TRS-80 SOFTWARE! 

JMG is one of the largest sources for TRS-80 software around; we specialize 
in software for Models I. Ill and 4. Our prices are the best, and if you find a 
better price then we'll beat it (see below). As well, we support the programs 
we sell; we sell only top-quality software, and our 99% satisfaction rate speaks 
for itself. With the best prices, selection and support on your side, you can't 
loose. Model 4 owners: ALL Model 3 programs we sell will work on the Mod 
4 in "III Mode". 



APPLICATIONS/BUSINESS 



Program Name (List) JMG 
Dotwriter w/LDS ( 99.95) 

(Model l/lll or Mod 4) 

ZORLOF II ( 79.95) 

LESCRIPT (129.95) 

(Model l/lll or Mod 4) 

LESCRIPT CP/M (199.95) 

LazyWriter (125.00) 

(Model l/lll or Mod 4) 

NEWSCRIPT (124.95) 

Typeitall (129.95) 

(Model l/lll or Mod 4) 

MScript ( 79.95) 

PowerScript ( 39.95) 

(Scripsit Modification Patches) 

POWERDOT II ( 59.95) 

POWERDRAW ( 39.95) 

TALLYMASTER ( 79.95) 

PowerMail Plus (150.00) 

PowerMail w/Txtmg . . . (179.00) 
ZMAIL Mailing List . . . ( 29.95) 
System Diagnostic . . . . ( 99.95) 
Mumford's Disk Indexer ( 39.95) 



S 69.50 



49.50 
99.50 



S 149.50 
$ 92.50 



74.50 
99.50 

54.50 
34.50 



$ 49.50 
S 34.50 
$ 53.50 
S1 24.50 
$149.50 
S 24.50 
S 79.50 
S 34.50 



TASMON - By TAS — (List $39.95) An ex- 
cellent machine language monitor/debug- 
ger, with loads ol features. For Model l/lll 
or 4 specify). Special price till 3/15/65. 

NEWBASIC - By Modular Software - (List) 
$39.95) An enhancement package that adds 
many commands to your Model l/lll Disc 
BASIC; till 3/15/85 we'll throw in a free 
Analyst or Collector with every order! A 
great bargain! 

Public Domain Disks - Computed by tas 
— (List $40.00) A set of "flippy disks chock 
full of excellent programs of all types; 

Barnes, utilities, more. All Public 
omain too! 

EDAS 4.3/PRO-CREATE - By Misosys - 
(List $74.95) An excellent Editor-Assembler 
with many powerful features. Now, this 
New Version supports all major DOSes! 
(TRSDOS, DOSPLUS, etc.) Also, comes with 
a new Full Screen editor! All this, and more, 
and a new lower price! 

DSMBLR lll/PRO-DUCE - By Misosys - 

This excellent Disassembler has now 
received a price reduction, making it an 
unbeatable valee. Loads of features. 

IFC/PRO-IFC - By Misosys — An 'Interac- 
tive File Controller", for managing file 
operations. Uses a "scrolling directory", 
has the capability lor mass operations & 
much more. A usefull program (LDOS or 
TRSDOS-6 only). 



UTILITIES 

SUPER UTILITY4/4P $ 69.50 

(Now Available!) 

SUPER UTILITY 3.2 $ 59.50 

HYPERZAP 3.2 $ 39.50 

M-ZAL Macro Assembler $ 79.50 

ALE • Assem. Lang. Editor $ 39.50 

Mumford's Instant Assembler . . $ 44.50 

^Instant Assem. Model 4 $ 59.50 

TASMON (Special) $ 29.50 

Howe's Monitor #5 S 19.50 

TOOLBOX for LDOS S 39.50 

MODEL 4 TOOLBELT $ 39.50 

TAS's Trakcess Mod 1 $ 19.50 

Trakcess Model 3 $ 24.50 

TAS's Autoloader $ 34.50 



"TOLL FREE" ORDER LINE: 
(416) 389-6086 

Instead of a regular toll free number, we deduct $2.00 from 
your order to pay for your phone charge (which is usually less 
than $2). That way you come out ahead, we come out ahead, 
and everyone is happy. And if you order by mail, ask for our 
"Toll Free Discount - ' and deduct S2.00! 

•Phones a'e siaMed 10 A M 10 7 P W Monaay lo Salu'aay e«ceol WeOnesaayi 



OUR PRICING POLICY: 

We will beat any legitimate price advertised for any 
product that we carry. If you find a lower price 
advertised, ou' price will be $1.00 less, under the 
same conditions leg. same shipping and other 
charges, etc) To receive the lower price you must 
mention the location of the other ad when ordering. 



,6.2 PLUS Enhancements $ Call 

\IMPAKT Utility $ 29.50 

JEWBASIC Enhancements $ 34.50 

The Analyst $ 19.50 

The Collector $ 19.50 

BAS 3-to-4 Converter $ 24.50 

ZBASIC Compiler $ 79.50 

EDX Text Editor $ 24.50 

MTERM Smart Term S 59.50 

Modem-80 Term S 34.50 

lLazyComm Terminal $ 29.50 

■Public Domain Disks S 34.50 

TEXTPRESS $ 39.50 

MISOSYS UTILITIES 

NEW LOW PRICES! New Programs too! 

Available for Mod l/lll or 4 ("PRO"). 

EDAS 4.3/PRO-CREATE $ 69.50 

DSMBLR lll/PRO-DUCE $ 23.50 

ADE7PRO-ADE (Disk. Emul.) $ 34.50 

LC/PRO-LC Compiler $114.50 

HartFORTH $ 69.50 

The following are all S23.50 Each, and all are available 

in Mode l/lll (LDOS only for most) and Model 4 "PRO-' versions; 

CMDFILE ZCAT GRASP ESP MLIB 

IFC MACH 2 DD&T ZGRAPH PaDS 



TO ORDER: 



We accept orders by phone or mail. When ordering please specify the Model 
of TRS-80 you own, the exact program(s) wanted, and the method of 
payment. We accept Check. Money Order, VISA, MasterCard, and Gold. 
Please enclose $2.50 for shipping costs. For Electric Webster and Dotwriter, 
please mention your word processor and printer brands. 



OUR GUARANTEE: 

We sell only top-quality software. If, 
however, you are unsatisfied with a product 
you have purchased from JMG. you may 
return it (in good condition) within 10 days 
for a refund, less a $2.50 handling charge 
for programs unaer $50 ($5.00 for programs 
over $50). We also ask that you send us a 
j letter stating the reason for your return. 



j%r,. 



sorry/of 
//vr&mir/am 



THE FINE PRINT: 

Shipping Charges are $2.50 in Canada and U.S. 
Overseas surface shipping is $5.00. $10 for air 
mail. All prices in U S Funds. Add $1.50 for COD 
Charges. Model III programs will all run on a 
Model 4 in III mode. 



3235 LOCKPORT ROAD 
NIAGARA FALLS, NY 14305 

OR 

710 UPPER JAMES ST. 

HAMILTON, ONTARIO 

CANADA L9C 2Z8 

Phone: (416) 389-6086 



Circle 2 on Reader Service card 




FASTER speeds up most TRS-80 
BASIC programs by 20-50% It 
analyses programs while they run, 
then displays a simple change to 
seguence variables so the ROM will 
find them faster 

You can use FASTER to speed up 
programs you've bought as well as 
programs you've written 
"If you . . would like a significant 
increase in the run-time speed, then 
buy FASTER." 

80 MICRO (April, 1982) 

Models I & III, 16-48K Tape 

or Disk, all DOS'* $29.95 



RPM TO THE 
RESCUE 




Find out if your drives need adjust- 
ment before you begin to lose files 
SAVE on repair bills This easy-to-use 
program measures the rotational speed 
and fluctuations of your disk drives, 
and warns you if they are running too 
fast, too slow, or unevenly. 
80 MICRO (April, 1982) said "If your 
drives have problems I recommend 
RPM before paying to get it repaired ." 
Customers agree: 

"EXCELLENT — Has paid for itself 
already! Saved the cost of Radio Shack's 
doing the speed adjust!" (D.M.) 
Models 1, 3 and 4 (in 3 mode) We 
suggest you order a copy before you 
need it 

RPM $24.95 



ORDER NOW, TOLL-FREE 
(800) 824-7888, oper. 422 

Hum 

Dept G, Box 560, No. Hollywood, CA 91603 
lB18l 764-3131 Information and Same-Day Processing 



TEP*-<S VISA MC .r*.r. . 

n US * Oirvidn »5(V i 

M.*- .rrjyn-t tilled w thin n 



ryt~-,-i» Ml«l MX ir 

r day 



CUT YOURSELF 
LOOSE WITH 
TRASHMAN 



TM 




■as* „ Jf . §£5?^^ 





.-*■•'■■ 






HIS PROGRAM IS A MUST FOR 
EVERYONE WHO USES "BASIC" 
ON A TRS-80. It reduces string com 
pression delays by 95% or more You 
suffer from these delays whenever you 
tuna BASIC program Your computer 

ocks up for seconds, or minutes, and 
you may even think it's "crashed 

TRASHMAN FIXES THE PROBLEM! 
As soon as you start to use :t, those 
delays will almost disappear. The pro- 
gram is very easy to use, so you don't 
have to be a computer programmer to 
take advantage of it It's written in 

"machine languageand usesonly 578 
bytes of memory for itself, plus 2 bytes 
for each "string " in your program It 
works with other machine language 
programs and all the major operating 
systems 

IT SHOULD HAVE BEEN BUILT 
INTO THE COMPUTER IN THE FIRST 

PLACE, but since it wasn't, look at this 

chart and then order your copy today 



# SECONDS DELAY PERCENT 

STRINGS NORMAL TRASHMAN IMPROVEMENT 

10 .1 .1 

250 11.8 0.7 94 

500 45 8 1.6 96.5 

1000 179.6 3.5 98 

2000 713.2 7.8 98 9 



"... in those programs that use hundreds 
of strings arrays, the time saved is out- 
standing." 80 MICRO, Jan. '83 
Works great, had 45 sec. delays in 
printing, now almost no delays. D.T. 

"We have installed TRASHMAN in 
one of our most major programs and it 
has reduced the run time by over 
one-third! AWL 

TRASHMAN is available on Disk 
for the TRS-80 Models I & III for 
just $39.95 



PUBLISHER 

Peter Hutchinson 



EDITOR IN CHIEF 
Eric Maloney 

MANAGING EDITOR (EDITORIAL) 

PeierE McKie 

MANAGING EDITOR (PRODUCTION) 

Deborah M SarRent 

REVIEW EDITOR 

Ryan Davis Wright 

COPY EDITORS 

Robert Mitchell (New Products) 

Penelope Hamblln 

ASSISTANT EDITOR 

Catherine Geary 

TECHNICAL EDITORS 

Bradford N Dixon 

Man- Anne ,lai ■. ela 

Keith Johnson (Load 80) 

Dave Rowell 
Beverly Woodbury 

EDITORIAL ADMINISTRATION 

Carole Macloci 

ASSOCIATE EDI TORS 

Hardin Brothers 

David Engelhardt 

John B Harrell III 

Terry Kepner 
Thomas L. Qutndry 



ADVERTISING SALES 



SALES MANAGER 

William Smith 

SALES REPRESENTATIVES 

Richard J. Alden 

Michael Wozmak 

1 800-44 1 -4403 



WEST COAST OFFICE 

1060 Marsh Roar 

Menlo Park. CA 94025 

415 328-3470 

SALES REPRESENTATIVE 
Ahsson Walsh 




CoTer by Erlck Ingraham 



Tne i*fl breceel |. 'ecxecee Irte wo arrow need by "lacao Sneci lo mov 
cat* fi potentiation On Our pnnloulB. Wfte-- enlennQ prod/emi out* 
HIM ■ K Metro, you »r>ouid m... II*. change 

90 lormets ill prtxjrem i>tdnoa lo run M character! **» the wu, they 

, , . .i.-. ..„,--,. 1 na 1 • rl» .. -«. m. - »i-4-- ■>: 
you e»n notice m our p ro qilfr> eetinga Oonl hat It throw yOw. riajyicaeey l y 
e*eyn enier-ng aeaernoty kteiinga 

Artie le lubmnwv* Horn out reader* w eeacorned and encouiaged 
mquinea should be addresMd lo SuomiM-ons ECHO*. 80 Pin* SlnMq Pe 
leroorougn hn OleSg Include an SAW k> • cop* ol Mo* lo «IM toi 
90 WnVO Payment tor accepted article* 1 made at a lata ol approai 
merely S30 w printed page all nghti ara purchased 
'TRS40 Stipe*, and TBSOOS IK Iredemerai ol neovo She;, a 0>.i 
»K)" o* Tandy Corp 



St eluyo ilSSN 4744 7IJ6tfi -6 DuCM'Shed monthly Dy CW U>rnmunic«tlOftSV 
■alafoorougn lot SuP^neSt Pstertyorough. MM OMM Phone 
«0MI44Mri Second ciaai poalaga paid al Peterborough. NX and addition 
al meitlnc. oll«-.es SubacnotKjn istee iiUS aia ti* 9' lo* one rea- 136 lor 
two years, and ISJ ioi three ream m Canada end Me*<co W 97 -one year 
only, u S lunOS drawn on a U S Qena Nationally dialnbuted Dy inteinelionai 
C n^wel'on Cntln&utot 'or— on aubecnptione (adrfaoa *na» J ftaa 9T— one 
ye*> only j s lunde oraein ooiuS Dana Foreign suosc' sliona ia>' maul 
teaeea inouna in Scmir Alnca contact tO Micro P O 6o» 7B»t5. Sanction. 
Soul" Alnce 2te6 All 3uO*C'.o».on ^omsaDonoence tnoulO be addreaeed to 
to errcro 'iuoec.pt.on Oecarlment. P O Boi 911 . Perrr-nodaie. N* 1 1 737 
PHMee incluOe yo** eddreea labe* yntn any correspondence Poalmaeler 
Send address cr-angea lo 90 VHVO SuOacnption Services P O Bob 981 
Farmingdale My 11737 



Entif* content* copyright '9B5 by CW Communication*/ 
Petertxxough Inc No part ol this publication may ba rapnntad. 
or reproduced by any means without prior wrlttan permission 
irom the publisher A" programs are published lor personal 
use only All rights reserved 



4 • 80 Micro. March 1985 



March 1985 




micro 




page.V 




On the Cover 



31. Through the Looking Glass: The Tandy 1200 HD 

by Bradford N. Dixon 

A full-fledged review of Tandy's bargain-priced PC/XT-compati- 
ble, along with a sampling of other opinions. Also, a Model 4 
loyalist sizes up the 1200. 

38. That Sinking Feeling by Douglas Payne 

How to fathom disk error messages and salvage flawed disks. 
(Models III and 4) 



70. A Sort Story by Alan D. Smith 

The Model 4 finally gets a fast string sort to match the Model 
Ills CMD "O" function. (Model 4: Load 80) 



74. Reasonable Deductions 

by Robert C. Lake. Mary R. Golden, and Samuel L. Lett 
What every computer owner should know about the new fed- 
eral income tax laws, including detailed examples of the kinds 
of deductions you can take. 



Features 



44. Grade- A Graphics by Michael Leibow 

Our Young Programmer's Grand Prize winner is a deluxe 
graphics editor loaded with options. (Model III; Load 80) 

58. A La CRT by Ken Schweim 

A better way to cook up menu-driven programs. (Models I and 
III; Load 80) 



page JM 




page 44 



Departments 


6. 


Load 80 Directory 


88. 


BBS Express 


8. 


Side Tracks 




by J. Stewart Schneider 




by Eric Moloney 




and Charles E. Bowen 


12. 


Input 
Feedback Loop 


96. 


Basic Takes 


16. 




by Richard Ramella 




by Terry Kepner 


100. 


The Next Step 


21. 


Pulse Train 




by Hardin Brothers 


25. 


Reader Exchange 


106. 


2000 Plus 

by John B. Harrell Ul 


27. 


Debug 


120. 


New Products 


31. 


Reviews 

The Tandy 1 200 HD 
Montezuma Micro CP/M 2.2 
Orchestra-90 
Electric Webster 


128. 


Ask Tandy 



80 Micro. March 1985 • 5 




Load 80 gathers together select- 
ed programs from this issue of 
80 Micro and puts them on a 
magnetic medium for your convenience. 
It is available on tape or disk, and runs 
on the Models I. Ill, and 4. 

Load 80 programs are ready to run. 
and can save you hours of time typing in 
and debugging listings. Load 80 also 
gives you access to Assembly-language 
programs if you don't have an editor/as- 
sembler. And. it helps you build a sub- 
stantial software library. 

Using Load 80 is simple. If you own a 
tape system, load the Load 80 tape as per 
the Instructions provided. If you own a 
Model I or ID disk system, you boot the 
Load 80 disk and transfer the files to a 
TRSDOS system disk according to sim- 



ple on-screen directions. If you own a 
Model 4, you must convert the programs 
from Model in TRSDOS to Model 4 disk 
using the Model 4 CONV command. 

Not all programs will run on your sys- 
tem. Some Model m programs, for in- 
stance, will run on the Model 4 in the 
Model IE mode, but not in the Model 4 
mode. You should check the key box 
that accompanies the article to find out 
what system configuration individual 
programs require. 

If you have any questions about the 
programs, call Keith Johnson at 603- 
924-9471. Yearly subscriptions to Load 
80 are $199.97 for disk, or $99.97 for 
cassette. Individual loaders are available 
on disk for $21.47 or on cassette for 
$11.47, including postage. To place a 
subscription order, or to ask questions 
about your subscription, please call us toll 
free at 1-800645-9559 between 9 a.m. 
and 5 p.m. Or. you can write to 80 Micro. 
Subscription Department P.O. Box 981, 
Farmingdale. NY 1 1737. 



Directory 


Graph 


Sort 


Article: Grade-A Graphics (p. 44) 


Article: A Sort Story (p. 70) 


System: Model III. 48K RAM. one 


System: Model 4. 64K RAM 


disk drive 


I-anguage: Disk Basic 


Language: Assembly/Disk Basic 


A string sort for Model 4 Basic. 


This versatile graphics generator 


Cassette filespec: Q. R 


won grand prize in 80 Micro's 1984 


Disk niespec: SORT4/BAS. 


Young Programmer's Contest. 


SRT4DEMO/BAS 


Cassette filespec: GRAPH. B. C. D. 


BBS 


LOAD. SAVE. DSPLAY 


Article: BBS Express (p. 88) 


Disk filespec: GRAPH/CMD (object 


System: Model III. 48K RAM. two 


code). UTIL1/BAS. UTIL2/BAS. 


drives 


UTIL3/BAS. LOAD/CMD (object 


Language: Disk Basic 


code). SAVE/CMD (object code). 


This module gets your bulletin 


DSPLAY/CMD (object code) 


board up and running. 




Cassette filespec: S 


List 


Disk niespec: BBS/BAS 


Article: A La CRT (p. 58) 


Help 


System: Models I and III. 16K RAM 


Article: The Next Step (p. 100) 


cassette. 32K RAM disk 


System: Model 4. 64K RAM 


Language: Basic 


Language: Disk Basic 


These Basic subroutines create 


A help file generator program. 


professional-looking menus for your 


Cassette filespec: T 


programs. 


Disk filespec: HELPFILE/BAS 


Cassette filespec: E. F. G. H. I. J. K, 


Allen Shuffle ^ 


L. M, N. 0. P 


Article: Special to Load 80 


Disk filespec: LIST1/BAS, 


System: Models I and III, 


LIST2/BAS. LIST3/BAS. 


32K RAM. one disk drive 


LIST4/BAS. LIST5/BAS. 


Language: Disk Basic 


L1ST6/BAS. LIST7/BAS. 


Try to rearrange these 


LIST8/BAS. LIST9/BAS. 


aliens into peer groups. 


LIST10/BAS. LIST1 1/BAS. 


Cassette filespec: II 


LIST12/BAS 


hisk Fllespet Al IEN/BAS 



ART DIRECTOR 
Beth Krommes 

PRODUCTION SUPERVISOR 

Dion Owens 

PRODUCTION ASSISTANT 

George Gardos 

AD/GRAPHICS PRODUCTION 
Gary Ciocci 



MANUFACTURING CONSULTANT 

Susan Gross 

TYPESETTING MANAGER 

Dennis Christensen 

FILM PREPARATION MANAGER 

Robert M. Vllleneuve 

DARKROOM MANAGER 

Nathaniel Haynes 



VICE PRESIDENT/GENERAL MANAGER 

Debra Wetherbee 

VICE PRESIDENT/FINANCE 

Roger Murphy 

ASSISTANT GENERAL MANAGER 

Matt Smith 

ASSISTANT TO VP/F1NANCE 

Dominique Smith 

DIRECTOR OF CIRCULATION 

William P. Howard 

ASSISTANT CIRCULATION MANAGER 

Frank Smith 

DIRECT AND NEWSSTAND SALES MANAGER 

Ralno Wlrein 

1-800-343-0728 

DIRECTOR OF CREDIT SALES 

AND COLLECTION 

William M. Buyer 

EXECUTIVE CREATIVE DIRECTOR 

Christine Destrempes 

PUBLIC RELATIONS 

Mtchele Christian 

FOUNDER 
Wayne Green 



tO UKro ii a nwnbti ol the CW Commumcelionannc group, the nfld'i 
largest pubNshet ol computer-related information Tha group publishes S2 
computer publications m 19 major countries Nina milaon people raad ona 
or mora ol ma group'* pubecarrons aach month Uambars of tha group in- 
clude. Argentina's Compurerworrd/Argenrina: Australia's Australia Compu- 
rerwortf, Ausrrarlen Micro Compt/far UtQvint, Ausrre/ien PC World ano 1 
Oirecrories, Brazil's OaraNews and MicroMundo. China's Cruris Compurer- 
-o«a. Denmark's ComputorworwOftmarii and Micro Verdon; Finland's 
aharo, France's f Monde Jnrormerrgue. OoJden (Apple) and OPC 11BM1. Ger- 
many's CorapuMrwocfte. Microcomputer***;. PC Wert. Software Merer, cw 
Edrftoo/Semrna/. Compurer Business and Commodore Magazine. Italy's 
Computerworld rrerta. Japan's Computerworld Japan and Perso Com world 
Meaco's CompurervrorasTareileo and CrjmpuMundo. rastho r taii ds ' CeY Bent- 
Aix and MicrnAnro. Norway s Compufmworid None and MraroOere; Saudi 
Arabia's SawoV Computerworld. Singapore's "it Asian r^mpuferwonv. 
Spain's CompurerworloVEspena end MrcroSrsremas. Sweden's Computer- 
Sweden, MwroOerom, and Met Nemderor the UK's Computer Menegemenr 
and Computer Suarnees Europe: the u S ' Computerworld. HOT CoCo, m- 
Cider. mroWorM. M*cWorM. Micro MsrH e rwortd. *C World. Ann. 73 Maga- 
zine and SO Micro 



Problems with Subscriptions: Send a description ol the prob- 
lem and your current and/or rnost recent address to: 80 Micro 
Subscription Department, P.O. Box 961, Farmingdale, NY 
11737. 

Problems with Load 80 Circulation Address correspondence to 
Lori Ealon, 80 Pine St., Petertjorough, NH 03458. 
Problems with Advertisers: Send a description ol the problem 
and your current address to: 80 Micro, Rl 101 & Elm Street, 
Peterborough. NH 03458, ATTN.: Rita B. Rrvard. Customer Ser- 
vice Manager. If urgent, call 1 -800-441-4403. 
Change ol Address: Send old label or copy of old address and 
new address to: 90 Micro P.O. Box 981, Farmingdale, NY 
1 1 737. Please give eight weeks advance notice. 
Microfilm. This publication is available In microform from 
University Microfilms International. United States address: 300 
North Zeeb Road, Dept. PR. Ann Arbor, Ml 48106. Foreign ad- 
dress: IB Bedford Row. Dept. PR, London, WC1R4EJ, 
England. 

Dealers: Contact Raino VWreln, Retail Sales Manager, 00 Micro. 
Pine SI . Petertx>rough, NH 03458. (800) 3430728. 



6 • 80 Micro, March 1985 



SYSTEM DIAGNOSTIC 

Is your computer working correctly? 
Are you sure? Find out (or certain with 
System Diagnostic, which has complete 
diagnostic tests for every component of 
your TRS-80" Model 1.3 or 4 

• ROM: checksum tests 

•RAM: three tests including every location 

and data value 
•Video Display: character generator 

video RAM. video signal 

• Keyboard: every key contact tested 

• Line Printer character tests with ad- 

justable platen length 

• Cassette Recorder read, write, venfv 

data 
•Disk Drives: disk controller, drive select 

track seek read sectors, formatting, read/ 

write/verify data with or without erasing. 

disk drive timer, disk head cleaner. 

Single or double density. 1-99 tracks 
•RS-232-C Interface: connector fault. 

data transmission, framing, data loop. 

baud rate generator 
System Diagnostic $99.95 


TYPITALL — The most powerful TRS-80 Word Processor 
TYPITALL is a word processor which is • Merge data from a disk file during printing 
upward compatible with SCRIPSIT" for the Names, addresses, or any other text can be 
TRS-80" Models 1. 3 and 4 If you know inserted during printing 
SCRIPSIT'. you can start using TYPITALL im- • Print dunng editing (spooling). 
mediately Even if you have never used a word • Assign any sequence of keystrokes to a 
processor before, you will find TYPITALL single control key 
easy to learn, and full of so many powerful * Cal1 U P ,n 16 HELP screens at any time 
features that you'll wonder why other word * Move cursor forwards or backwards by 
processors don't have them Following is a list ^"^ter. word. line, or page 
of some of TYPITALL's features (If you need * Recnter *€ program with all text intact 
to know more, ask for our free catalogue.) *£» accidgntall V «* without saving the 
•Send any control or graphic/special char- .Spelling checker with 29.500 word 

acter to the printer dictionary available 
•Print the formatted text on the screen -Verify 3,500 word document in less than 

before going to the printer two minutes. 
• Send the formatted text to a disk file for -True Model 4 (80 x 24 display. 

later printing TRSDOS 6) and Model l/lll versions. 
"If you like SCRIPSIT". you'll probably hue TYPITALL."- 80 Micro. 
TYPITALL Demo Version $49 95 


TYPITALL Complete Version $129 95 


TYPITALL with Spelling Checker $179.95 


k 

HOME BUDGET and 
CHECKBOOK ANALYST 

Combines the functions of a check- 
book program with budget analysis, 
comparisons, summanes and projections 

First, it is a checking program, which 
can be used to maintain your checking 
account F.nter deposits, print check regis- 
ters, compute your current balance 

The program analyzes your income and 
expenses, keeps track of your budget 
Computes monthly and year-to-date in- 
come and expense summaries, and pro- 
lections for the yeai based on data through 
a known month Monthly expenses can be 
compared to a pre-established budget 

Model 1/3/4 disk version . . . $59.95 
Model 1/3/4 cassette version $29.95 
Mod. 2/12 or IBM PC version . $39.95 


TRS-80 " MODEL III 
ASSEMBLY LANGUAGE 

A complete course in assembly 
language, written for the beginner. 
Contents include: 

• The Z-80 instruction set 

• TRS-8()~ Model III ROM and RAM 
•Using the Editor/ Assembler 
•Reading, printing, and moving data 

• Arithmetic operations with integers 
•Floating-point and BCD numbers 

• Logical and bit operations 
•Cassette input and output 

• USR subroutines in BASIC 
•RS-232-C data communications 
•Disk input and output 

• The TRSDOS 1.3 disk operating system 

With the book you can also purchase 
Monitor *5, a comprehensive machine 
language monitor and debugger program. 
(Monitor #5 also avail, for Models 1 & 4 ) 

Book only $16.95 

Monitor #5 only $22.95 


MAILING LIST 

Maintains mailing lists of over 1250 
names per disk file Add. change, delete 
or find names Sort according to the data 
in any field Labels printed in 1.2. 3. or 
4 columns, with adjustable tabs 
Model 1, 3. or 4 version $69.95 
Mod. 2/12 or IBM version . . . $79.95 


SMALL BUSINESS 
MANAGEMENT SYSTEM 

A complete system for using your 
computer to manage a small business. 
•Order Entry: enter orders, print in- 
voices, change past invoices Use pre- 
printed forms or plain paper 

• Bookkeeping: complete general ledger 

by user-defined categories Pnnt month- 
ly or year-to-date summanes and ledgers 
•Accounts Receivable: show balances 
due from unpaid invoices at any time 

• Accounts Payable: show amounts you 

owe for unpaid bills in any category 

• Inventory: complete summary of prod- 

ucts sold by part number and prices 
charged Limited to 1.000 8-character 
part numbers (2.000 for MS-DOS) 

•Installation package tailors the pro- 
grams to your business. 
Available for TRS-80" Models 1. Ill, 

4, 2. 12. 16 (TRSDOS). or 2000, IBM-PC. 

and most CP/M computers. 

Need more information? Ask for 

our detailed description of this program 

with sample forms and reports 

All versions $250.00 


SMALL BUSINESS 
ACCOUNTING 

Based on Dome Bookkeeping Record 
*612. this program keeps track of income, 
expenses, and payroll for a small business 

Complete ledgers are maintained for 
both income and expenses The pro- 
gram computes monthly, through last 
month, and year to date summaries 

The payroll section (not included m 
cassette version) contains provision for 
up to 99 employees with up to six cate- 
gories of deductions. The program can 
print both checks and summaries of pay- 
roll for one employee or all employees 

Model 1/3/4 disk version .... $59.95 
Model 1/3/4 cassette version $29.95 
Mod. 2/12 or IBM PC version . $39.95 


Book and Monitor #5 $29.95 


SMART TERMINAL 

The intelligent communication pro- 
gram Use your TRS-80 to communicate 
with other computers, bulletin boards, in- 
formation services, time sharing, or for 
data transmission. 

• Memory buffer holds data to be 

transmitted or received 
•Automatic transmission from buffer 

• Automatic storage of incoming data. 

• Character translations. 

• Data files compatible with word proces- 

sors and BASIC programs 

• True BREAK key 

Model 1. 3 or 4 version , $74.95 
Model 2/12 CP/M version . . . $79.95 





Howe Software 

14 Lexington Rd . New City. NY 10956 

Developing software foi TRS-80 
computers since 1979 



24-Hour TOLL-FREE Order Number 

Outside California (all: 

(800) 428-7825. ext. 169 

Inside California call: 

(800) 428-7824, ext 169 

Visa. Master Card, or COD orders only. 



For information call: 
(914) 634 1821 

Add $3.00 postage & handling. 
New York residents add sales tax 



SIDE TRACKS / by Eric Maloney 



Considered Opinions: 
80's Readers Speak Out 



I'm always impressed by the nu- 
merous constructive and intelligent 
comments we receive on our reader 
surveys. So I'm going to dedicate this 
month's Side Tracks to some of the re- 
marks we got on our most recent sur- 
vey, and try to address a few of the 
most frequent complaints. 

"80 Micro is becoming fragmented 
by trying to cover all of Tandy's com- 
puters. " 

Five years ago, covering TRS-80s 
was simple — the Model I was pretty 
much all we had to worry about. Tan- 
dy now has more systems than we can 
fit in one room. Our dilemma is how 
to cover as many bases, and satisfy as 
many readers, as possible. 

For a while, we tried to provide 
some coverage for nearly all the 
TRS-80s. We realized, however, that 
to do so was to cheat the core of our 
readership — owners of Model I's, 
Ill's, and 4's. So about a year ago, we 
made some painful but necessary deci- 
sions to end coverage of certain sys- 
tems, including the Color Computer, 
Model 100, and Models 11/12/16. 
These micros are, we felt, too incom- 
patible with the I/III/4 family to be 
covered adequately in the same 
magazine. 

The result is that we've lost a certain 
number of subscribers. But we feel it's 
better to satisfy most of our readers than 
none at ad. The I, HI, and 4 are our 
bread and butter, and we're committed 
to covering them as well as we can. 

As for the Model 1000, we'll watch 
its performance closely in 1985, and 
evaluate whether we can cover it 
without compromising our I/III/4 
coverage. 

"You seem to be reducing to next 
to nothing your support of Model I 
systems. " 

The Model I is a great old machine, 
and its users are among microcomput- 
ing's most diehard. Model I owners 
stfll make up nearly one-third of our 
readership. We'll therefore ensure that 




as many of our programs as possible 
run on the Model I. 

We recognize, however, that Model 
I owners are abandoning their ma- 
chines for Model 4's and MS-DOS 
systems. Consequently, the number of 
Model I users among our readership is 
declining rapidly. They now rank third 
behind the Models 4/4P and III own- 
ers. Simple math tells us that we must 
give the bulk of our coverage to the 
latter two machines. 

"It's not business-oriented; it seems 
to be hobby-oriented. " 

"It's moving too much toward 
business and away from hobby. " 

We seem to have a difference of 
opinion here. 

Much depends, of course, on your 
perspective. New readers who own 
Model 4's are more likely to want 
business programs, while I/HI users 
tend to want home/hobby programs. 

We still have more hobbyists than 
businessmen. Our survey shows that 
personal and hobby use out-polls 
business use by 64 to 51 percent. Some 
81 percent of our readers use their 
micros at home, while 57 percent use 
one at work. 

The upshot is that 80 Micro will 
continue to focus on home and per- 
sonal uses. We recognize, however, 
the growing number of TRS-80s in 
business, and will try to provide more 
applications for those machines. 



"Games— YUK." 

There was a time when our August 
games issue outsold all others. Alas, 
no more — games are now at the bot- 
tom of our readers' want lists. This 
will translate into fewer games and an 
end to the annual games issue. We 
have, however, scheduled several Ba- 
sic games that demonstrate interesting 
programming techniques, and we will 
also include some games on Load 80 
as bonuses. 

"Getting too small. Fear it may 
fold. Please don't!!" 

It's natural that some people equate 
size with health. Actually, 80 Micro is 
in better shape than it ever was. Do 
you have any idea how much it cost to 
print and mail those 3-pound suckers? 

The reduced size of the magazine is 
directly related to the enormous 
shakeout in the TRS-80 third-party 
market. Fewer companies mean fewer 
ads, which mean fewer pages. 

Keep in mind that the TRS-80 mar- 
ket and 80 Micro are much more 
mature than other markets and ma- 
gazines. We've gone through the ini- 
tial explosion, and are now stabilizing. 
Don't be jealous of those who own 
other, seemingly more glamourous, 
systems. They'll eventually be in the 
same boat. 

In the meantime, rest assured that 
80 Micro is here to stay. 

"Many programs published by 
readers are so full of bugs that they be- 
come useless. " 

Our tech staff checks each program 
several times before it goes into the 
magazine, and the result has been a 
significant reduction in the number of 
bugs. Nevertheless, we recognize that 
still too many slip through, so we're 
revamping our tech-check system. 
We'll not only be looking for syntax 
and typographical errors, but for er- 
rors in logic that pop up only after a 
program has been used for a while. 
We'll never be perfect, but we promise 
to do better in the future. ■ 



8 • 80 Micro, March 1985 



V; 



T4 



UTLINE WmKKm "**«*» 

INCISED TRAJAN Playbill 

' Pump' ' S A HTI QUE 

ROMAN 5552 @ini lubes 

Small Boldface 
Small Bold Italics 



Nostalgia 

I iriinri rtMiCTOI 

i- 1 a u i u •- 1 \ r< z< t n L 





Chancery Medium /mjjp./UjU./S 

^4 plHSi^^ 



^S^^S 




Circle 91 on Reader Service care 



These were printed by DOTWRITER on an Epson MX-80. 



See What You Can Do With 
DOTWRITER 4.0! 

Now available for the Model 4, too! 



DOTWRITER lets you create 
spectacular, eye-catching 
letterheads, catalogs, invito* 
tions, or even books. It is just what 
you need to turn your dot-matrix print- 
er into a versatile typesetting ma- 
chine. And it's available for the Model 
4 (yes, in native mode) as well as for 
the Models I and III. 

What is DOTWRITER? 

DOTWRITER uses the "bit-im- 
age graphics" of your printer to 
produce the kinds of stunning re- 
sults shown inside the box. It is a 

full-function text printing program, so 
you can inter-mix different character 
sets, do centering, paragraphs, pagi- 
nation, magnification, draw horizon- 
tal and vertical lines, reversals (white 
on black), and even print right-justi- 
fied proportional text. 

DOTWRITER includes the printing 
program, complete documentation, 
and fourteen useful sets of typefaces 
(60 to 90 characters in each set). We will 
also give you the 105-page Letterset 
Reference Catalog free with your 
order. 

To use DOTWRITER, just write your 
text with any popular TRS-80 Word 
Processor, add the necessary format- 



ting commands, and DOTWRITER will 
do the rest. 

25 more disks are available 
separately. Each 
has 3-12 complete 
typefaces (60-95 
characters in 
each set). 




Send for free print samples! 

We've only shown you a few of the 180 
DOTWRITER fonts. If you want the best 
in graphics printing, we suggest you 
order DOTWRITER today, toll-free. 

Please specify printer and computer 
when ordering. 



These disks cost 
less than S25 each, 
and may be pur- 
chased at any time. 

If you want to create your own 
logos, modify our typefaces, or even 
design entirely new typefaces, then 
you will also want to order the "Letter- 
set Design System" (LDS). We offer LDS 
at half-price when you order it along 
with DOTWRITER. LDS operates in 
Model III mode on the Model 4. 

Versions are available for Epson MX-80 
with Graftrax, MX-100 with Graftrax-Plus. 
RX-80. FX-80. C. ITOH 8510/1550, Microline 
84'92'93: Radio Shack's DMP series 200- 
2100. CGP-220 & Gemini 10X. 15X. Please 
specify printer and computer! 

Our print samples were done on an Ep- 
son. Sizes vary on other printers. Some of 
the samples shown here are taken from the 
additional Letterset disks. 

Two disk drives and at least 48K of mem- 
ory are required. LDS is not available in 
native Model 4 mode. 



DOTWRITER 

(Models I. Ill) $79.95 

DOTWRITER (Model 4) 99.95 
Letterset Design System 39.95 
Special: DOTWRITER 

and LDS 99.95 

Additional Letterset 

disks (4-12 per disk) 

17.95 and 24.95 
Letterset Reference 

Catalog 10.00 



ORDER NOW, TOLL-FREE 
(800) 824-7888, oper. 422 







Dept. C. Box 560. No. Hollywood. CA 91603 
18181 7643131 Information and Same Day Processing 

TERMS: VISA MC checks COD Please add S3 00 shipping 
in U S or Canada S15 00 overseas sales tax m Ca 
Most orders tilled within one day 




The Premier Word Processor for 
Your TRS-80 Model I, III, or 4 




We are proud to offer you 
the one Word Processor 
that will satisfy all your 
writing needs: ALLWRITE. It sets 
new standards for text editing and 
printing, and will give new life to 
your TRS-80. Let us tell you why. . . 
In an attempt to push the public 
into expensive 16-bit computers, many 
manufacturers have been saying that 
the TRS-80 is obsolete. The truth is that 
the software, not the hardware, makes 
the difference. And the best word proc- 
essor of all is now available only on 
the humble TRS-80, not on those ex- 
pensive 16-bit machines! 

ALLWRITE is based on the proven 
methods that made NEWSCRIPT the 
most popular independently produced 
TRS-80 word processor, but it also has 
the speed and new features our cus- 
tomers have asked us for. ALLWRITE 
will save you time and let you produce 
the highest -quality, most professional- 
looking letters, term papers, and re- 
ports available on a micro-computer. 

AHwrite Can Save You Time! 

Reads a 25,000 character file (10 
printed pages) from disk in SIX SEC- 
ONDS... does a global search-and- 
replace in FOUR SECONDS. . .outruns 
even the fastest popular micro-printer. 



ALLWRITE'S Screen 

Handling Makes Word 

Processing Easier 

Than Ever 

Change text width at any time; 
wide lines shift left and right as you 
type. ALLWRITE preserves double- 
blanks between sentences, uses the 
entire screen for text, and displays a 
complete Status Screen at the touch of 
a key. Scroll by line, partial screen, full 
screen, to top or end of file, or to any 
marked point. Move cursor by charac- 
ter, word, tab, line, or screen. 

You can set and change on-screen 
tabs and store them on disk. The print- 
time tabbing features are incredibly 
versatile: they allow left, right, and 
centered tabs, and even line up your 
decimal points. 

ALLWRITE shows you where you 
forgot to turn off underlin- 
ing, boldface, italics, or 
double-width. Special on- 
screen Preview feature 
shows page breaks and 
page layouts . . . including 
underlining and boldface 
. . . without annoying blink- 
ing or screen flicker. In 
"Summary" mode. ALL- 
WRITE quickly flags for- 
matting errors without 



These were printed by ALLWRITE; 
shown 20% actual size. 

wasting time printing all the text. 
These standard features make docu- 
ment preparation faster and easier 
than ever! 

State Of-The-Art 
File Handling 

There is no upper-limit on docu- 
ment size with ALLWRITE, because it 
chains files backwards as well as for- 
wards, even across diskettes. Switch 
from one chained file to another in less 
than six seconds by pressing two keys. 
Select portions of other files for inclu- 
sion at print time... great for stock 
paragraphs. 

ALLWRITE salvages text from bad 
disks! If a sector goes bad, you won't 
lose the entire file, because it will skip 
bad sectors, read the rest of the file. 



TAKES FULL ADVANTAGE OF YOUR 
MODEL 4. 

The model 4 version of ALLWRITE uses 
the entire 80-by-24 screen. On a 64K ma- 
chine, you can edit over 34,000 charac- 
ters of text. On a 128K machine, you can edit 
THREE TILES AT THE SAME TIME! The 
second and third files can be over 32,600 char- 
acters each, for a total of almost 100.000 
characters of text in memory. 



and then show you where the lost text 
belongs. This advanced error recovery 
turns a disaster into a feeling of pro- 
found relief. 

User-Definable Soft Keys 
Reduce Typing Time 

You can store 22 phrases or com- 
mands at a time into "soft-keys." then 
press just two keys to retrieve them. 
This makes frequently-used phrases 
and formatting controls a snap to use. 
You can store these definitions on disk 
and build a library of hundreds of pre- 
programmed keys to fit every one of 
your applications. 

Our specially-designed templates 
fit right on your keyboard to let you see 
your settings at all times. Each tem- 
plate is also a Reference ("Cue") Card, 
so it is always right in front of you 
when you need it, without using up 
valuable screen space. 

ALLWRITE Is Easy To Learn 

ALLWRITE's commands and con- 
trol keys are easy to remember be- 
cause they use the first letters of 
common English words: 'CE' stands for 
'Center,' 'Search' and 'Replace' do just 
that, and so forth. The on-line HELP 
menu offers over fifty screens of topics. 

NEWSCRIPT's documentation was 
acclaimed in every review, and 
ALLWRITE's 350-page book is even bet- 
ter. Portions of it are designed for be- 
ginners, with every feature clearly 
explained in step-by-step tutorial 
style. Since you won't always be a be- 
ginner, other parts of the book offer ad- 
vanced topics. There is a cross- 
reference summary chapter, a 14-page 
comprehensive index, and a detailed 
Table of Contents. We've been devel- 
oping computer programs and man- 
uals for over 20 years, and understand 
the importance of good documentation. 

To make installation easy, we in- 
clude Tiny DOSPLUS for the Models I 
and III, and special, pre-tailored ver- 
sions of both TRSDOS 6.2 and DOS- 
PLUS IV for the Model 4. all at no extra 
charge. The Model I and III versions 
work equally well with all major 
DOS's. 

PROSOFT'S On-Going 
Customer Support 

Perhaps the best reason of all for 
having ALLWRITE is the continuing 
support we offer you: friendly expert, 
direct support that is unsurpassed in 
the micro-computer industry. There is 
no time limit to our support: if you are 
our customer and you need help, just 
call or write. We give free updates for 
90 days, and charge little or nothing 
for minor updates thereafter. 



Customer Comments 

"This is the best software package 1 
have ever received . . .superb, easy to 
use. tast. and has more features than 
the business word-processor at the 
officer (E.R.I.) 

"ALLWRITE is a professional system 
that sets a new standard in word pro- 
cessing. It's powerful and easy to learn 
and use." 

80 MICRO. Nov.. 1984 
"Your company and products have 
to be one of the strongest factors 1 can 
think of for keeping me with the 
TRS-80!" (J.RJi.) 

"NEWSCRlPTis the Cadillac of word 
processors. ALLWRITE is the Mercedes 
Benzll" (B.E.) 

". . .a very readable manual? (D.S.) 



BENEFITS OF OWNING 
* * ALLWRITE * * 



// Word Processing is important to 
you. PROSOFT's ALLWRITE is the best 
choice you can make. The clean, pro- 
fessional appearance it adds to your 
letters and reports will make an excel- 
lent impression on people. We will be 
happy to send you free print samples 
so that you can see for yourself how 
good ALLWRITE will make you look. 

You probably know that quality 
word processors for CP/M and the IBM- 
PC sell for $300-500, and they don't 
have ALLWRITE's capabilities or speed 
... or PROSOFT's proven, on-going 
support. Now, for a fraction of the cost 
of a new computer, you can have the 
most complete word processor of all. 
And you won't have the headaches of 
starting all over again with a new, 
different computer. 



Note to college students: with its 
Footnote, Table of Contents and Index 
features. ALLWRITE is ideal for your 
reports and Term papers. 

Circle 30 on Reader Service card 



HUNDREDS OF USEFUL 
CAPABILITIES 

ALLWRITE comes with just about 
every useful word processing feature 
...standard. Here are some high- 
lights: excellent right-justified pro- 
portional printing on most printers 
having that ability; powerful Form Let- 
ter and Mailing Label preparation; In- 
stant counts of words, characters, 
lines, changes; block Move, Copy, De- 
lete. Putfile, Getfile, and List; delete 
by character, word, line, sentence, 
paragraph, or block; insert and one- 
key insert; great RS-232 printer sup- 
port; accepts all 256 ASCII codes from 
keyboard; intermix pitches on same 
line (printer-dependent); 1.5 line spac- 
ing, 6. 7 8, 12 lines per inch (printer- 
dependent); does multiple-columns on 
all printers; perfect alignment of hang- 
ing indents; variables, logic state- 
ments, conditional printing; wildcard 
Directories; integrated with Electric 
Webster and DOTWRITER for Models I. 
Ill, and 4 (these are sold separately); 
"Legal" line numbering; paragraph, 
list, and figure numbering; supports 
most popular printers (all "printer driv- 
ers" included); compatible with high- 
memory drivers; fully explains all 
DOS and ALLWRITE error messages; 
wildcard search -replace; tabs, search- 
replace, other settings remembered 
across files; word reversal; up to nine 
levels of boldface; flexible page titles; 
footnotes at bottom of page or end of 
document; Table of Contents and In- 
dex generation; and PROSOFT's un- 
matched text formatting and printing 
capabilities. 



Attention NEWSCRIPT Owners 

You can trade in your copy of NEW- 
SCRIPT at very substantial savings. 
Please call our technical line for 

How To Order 

You can order by phone or mail. For 
quickest delivery, call our Technical 
Support line. Please specify your TRS- 
80 model (I, III. or 4, 48K, at least two 
disk drives), and your printer(s). Our 
price includes normal shipping in the 
U.S. and Canada. The sooner you or- 
der, the sooner you will begin to bene- 
fit from the ALLWRITE! Word Processor. 




Holiday Special 

$199.95 



ORDER NOW. TOLL-FREE 

(800) 824-7888, oper. 422 








® 



Box 560, No. Hollywood, CA 91603 
(818) 764-3131 for Technical Information and Same-Day Processing. 

Terms: VISA, MasterCard, checks, C.O.D. California residents please add sales tax. 

Most orders filled within one day. 

Model 4 version available at Radio Shack: Cat. No. 9O-0242 



INPUT 



T/Maker Talks 

Eric Grevstad's review of T/Maker 
(January 1985, p. 34) is somewhat 
misleading. First, Grevstad seems 
overly influenced by what he assumes 
to be the correct method of imple- 
menting features. We at T/Maker feel 
that it's more useful to rate software 
according to its ease of use and effi- 
ciency. T/Maker software exhibits 
useful features that are easy to use; 
we'll let other companies specialize in 
features and functions their customers 
will never use. 

The slow screen response and the 
keyboard bounce are problems attrib- 
utable to the particular screen imple- 
mentation Digital Research chose for 
CP/M Plus. T/Maker's word proces- 
sor, for instance, running on the Mod- 
els 4 and 4P under TRSDOS, behaves 
quite differently. The TRSDOS ver- 
sion is currently selling at $299. 

Where value and usefulness are 
concerned, T/Maker is an excellent al- 
ternative to purchasing three or four 
separate programs. 

Royal Farros 

Marketing Director 

T/Maker Co. 

Mountain View, CA 

I Protest 

I protest the exclusion of Model I 
programs from 80 Micro's annual 
Young Programmers Contest. I'm 
well aware that support for the Model 
I is rapidly decreasing. However, I 
urge you to remember your roots and 
let the Model I die a slow and natural 
death without encouragement from 
80 Micro. 

R. Don Robinson 
Hobbs, NM 

Demanding Pascal 

The Alcor Pascal compiler is effi- 
cient and takes full advantage of Mod- 
els III and 4 capabilities, including the 
Model 4's optional second 64K RAM 
bank. The two-stage compiler lets you 




compile your Pascal program into 
p-code that's then translated into ma- 
chine instruction for execution directly 
by the hardware features of the Mod- 
els III and 4. 

Alcor Pascal, in my opinion, in- 
cludes what most programmers want 
in a computer language. Unfortu- 
nately, however, it doesn't support 
the high-resolution graphics board 
option. It's up to us to try to convince 
Tandy/Radio Shack that a graphics 
enhancement for the Alcor Pascal 
compiler would be a popular soft- 
ware package. 

David A. Smith 
Berkeley Heights, NJ 

Reference Point 

I'd like to clarify a few of John B. 
Harrell Ill's criticisms in his review of 
Nanos Systems' CP/M Reference 
Card (October 1984 p. 187). Harrell 
states that the card doesn't specifical- 
ly address Radio Shack's version of 
CP/M Plus. The reason for this is 
that Radio Shack's CP/M Plus is ac- 
tually CP/M 3.0, a vastly upgraded 
version of CP/M 2.2. 

Unfortunately, the differences be- 
tween the two versions are so exten- 
sive that it would be foolish to include 
both on the same reference card. 
Many commands that are built into 
CP/M 2.2 are transient programs in 
CP/M 3.0, complete with different 



command syntax, in addition to new 
utilities and commands. For this rea- 
son, the card states that it applies ex- 
clusively to CP/M-80 1.3, 1.4, 2.2, 
MP/M, and CP/M-86. 

Han-ell's comments regarding the 
missing ASM parameter lead me to 
believe that he accidentally compared 
Nanos Systems' CP/M Reference 
Card to CP/M Plus instead of CP/M 
2.2. This parameter doesn't exist in 
CP/M-80. The PRN file is the As- 
sembly listing file; when printing, you 
use the PIP utility to send this from 
disk to your printer. CP/M-86 does 
have a printer parameter for ASM86 
which is listed on the reference card. 

Despite these two problems, Har- 
rell's review is accurate and helpful. 

Terry Kepner 

Co-author of the 

CP/M Reference Card 

Peterborough, NH 

A-B-SEE Congrats 

Based on Gary Ludwick's review 
of A-B-SEE (August 1984, p. 34), I 
recently purchased the most powerful 
piece of software ever written for the 
Model III. Among A-B-SEE's many 
outstanding features is its ability to 
enter any of the 256 ASCII characters 
from the keyboard. In addition, A-B- 
SEE lets you change the contents of a 
Do file without having to reenter it. 
A-B-SEE is also great for making 
global changes to Basic as it lets you 
specify whether or not each occur- 
ence of a string or variable is to be al- 
tered. 

Fortunately for Model III users, 
Computents Inc. still recognizes a 
healthy market for high-quality TRS- 
80 products. 

John M. Taylor 
Wetumpka, AL 



Send correspondence to Input, c/o 
80 Micro , 80 Pine St., Peterborough, 
NH 03458. 



12 • SO Micro, March 1985 



ANYONE CAN USE OUR SOFTWARE! 




MAIL PAC II and CHECKING PLUS represent a 
new generation of computer software. Our 
software doesn't even need a manual! Any- 
one can quickly learn to use either package 
by following simple, explicit on-screen 
instructions. But for those of you who insist 
-- we've included a complete user's manual 
as well. 



ifc.iific Uau, Ik. 




Ike 



MAIL PAC II 



.« 



MAIL PAC II FEATURES: 
High Capacity — 

Stores from one to one million names in Zip Code. Numerical or Alpha- 
betical order The only limitation is your disk storage space. 

Flexibility — 

Prints your mailing list on 1, 2. 3. or 4-across labels (with up to 5 user- 
defined lines on each label) or as a compact, user-designed directory 
The record length is completely user-defined, and each field within 
each of your records is completely variable (allowing storage of any 
number of characters for any particular address entry) Devote fields 
to telephone numbers, codes, or even special messages related to each 
particular name on file 

Powerful — 

A built-in word processor allows you to create personalized form letters 
for each address on your list (or just a particular group of addresses). 

Ease of Use — 

Create new mailing lists, review existing lists, handle changes of 
address, delete cancelled names, sort lists, and purge duplicate names 
from your files Complete on-screen instructions tell you in plain 
english exactly how to accomplish all of these tasks 

MAIL PAC II $99.95 



JOHN DOUGH 

■» SiliANBLVO. 



PAT TO IH£ 
ORDER Of _ 



116 



ii. 



ANONintC 

f msi n/ 
me no 



CHECKING PLUS 



._«kS 



.;- ?ait »:.*;■: --u-it-.s 'raia 



CHECKING PLUS FEATURES: 
Complete Check Register - 

Checking Plus stores your entire check register in a disk file and then 
uses the data to balance your account, track your expenses, and help 
you make budget projections Review the entire checkbook, enter 
checks, deposits, fees and adjustments, mark outstanding checks when 
paid, and get an instant cash balance at any time All data can be viewed 
onscreen or printed out in report form 

Tax Preparation — 

Storage of monthly and yearly totals and other important information 
aids in income tax preparation, for your personal use or for your 
accountant. 

Handles the Details — 

Store names and addresses for frequently written checks, then print 
checks to fit standard window envelopes, eliminating the need for extra 
typing You can even store any comment, explanation or other message 
(up to 255 characters) related to a particular check 

Automatic Monthly Bill Payments — 

Enter amounts and names of payees for all of your fixed-cost monthly 
payments, and then sit back while the system automatically prints 
checks. 

CHECKING PLUS $99.95 



Both Programs Require 48K And At Least One Disk Drive (2 Drives For 
Higher Storage Capacities) And All Hard Disk Systems Are Supported. 



FREE-TRS-80 Mod LID & 4 programs suppBed on DosPlus (rrinimum system). 
Complete DosPlus also available 



FOR YOUR TRS-flO" • APPLE' - • IBM PC" • NEC" • OSBORNE" • XEROX" • KAYPRO" • TELEVIDEO" • ZENITH" • SANYO" 

DEC" • Tl PROFESSIONAL COMPUTER" • SUPERBRAIN JR " • EPSON" • Any CP/M" Computer 

C» M-Mud Computer! mud be equipped with Microsoft BASIC (MBASIC or BASIC-M) 

TRS-80 trademark Tandy Corp APPLE trademark Apple Corp IBM PC trademark IBM Corp AT ARi trademark Atari Inc OSBORNE trademark Osborne Corp • XEROX trademark Xero> Corp 

KA-rVRO trademark Non-L'neai System* Inc TELEVIDEO trademark Telev.dec System* Inc - SANYO trademark Sanyo Corp NEC trademark NEC Corp DEC trademark Digital Equipment Corp 

ZENITH trademark Zen.th Corp - T i PROFESSIONAL COMPUT ER trademark Te«as inst-umenls inc - SUPERBRAIN trademark mtertec Corp CPM trademark Digital Reseaech EPSON trademark Epson Corp 



OUR SOFTWARE CATALOG 

H & E Computronics. Inc . has mailed more than 1 million 
software catalogs since 1978 Send $2 for our new64-page 
catalog today 1 (We also send you our catalog FREE with 
every order) DEALER INQUIRIES WELCOME 



30-DAY MONEY BACK GUARANTEE 

•" ALL PRICES i SPECIFICATIONS SUBJECT TO CHANGE •— 
DELIVERY SUBJECT TO AVAILABILITY 



iCQMPLITRQNICS 

50 H PASCACK HO.. SPRING VALLEY. N.Y. 10B77 



ADD $3 00 FOR SHIPPING IN UPS AREAS 
ADD $4 00 FOR C O OR NON UPS AREAS 
ADD S5 00 TO CANADA & MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U S 
CANADA & MEXICO 



(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 
(800) 431-2818 



Circle 9 on Reader Service card. 



THE FRIENDLIEST, 
MOST POWERFUL AND 
MOST COMPLETE DOS 



ever to operate a Model 4 ; 



f 



SPLUS 4 



Get it TODAY from ALPHA ! 



5 10^95 Special $4f%C%oo 

J&& Ms month ! lUiJ 

15 day money back guarantee. 1 -800-221 -091 6 



'ALPHA Products guarantees the lowest price. We will beat or match any advertised price. 



ft 



Doctor SIGMUND 



33 



will amaze you! 

See Artificial Intelligence at wcrk! 

If you want to show off your computer, run "Doctor SIGMUND" and see their 
expressions as your TRS-80 has an intelligent conversation with you. 
If you have a VS-100 voice synthesizer, Sigmund actually talks back to you. 
Even YOU will be impressed. $29.95 
Doctor SIGMUND. for Models I III and 4 (48K required); available on disk only 




Check these features: 

Talker 2.0 and Talker 4.0 software: 

flf Unlimited translation of English text to 

clear speech. 
w Powerful video or keyboard echo can be 

* switched on or off at any time. 
H Can be used in BASIC with 2 new commands: 

PRINT* "I can talk" speaks any expression. 

PRINT! "Hello" speaks and prints on screen. 
2) Reads numbers up to 999 trillion. 
Speaks many abbreviations, such as Mrs., 

Mr., lb., oz., Co., etc. 
□ Walks the dog. 
Bf Many control codes to tailor the system to 

your wishes. (Pitch, speed, etc.) 
& Only 6 1 AK long. 
Bf Talker relocates itself into available high 

memory. Compatible with any DOS (not CPM) 

The VS-100 hardware: 

Hi Same performance as very expensive units. 

Of Super efficient: About 50 bytes per sentence. 

\M Handsome speaker module included. 

Sf Detailed 48 page manual. 

Hi Ready to plug in and talk right away. 

Sf Uses the famous Votrax SC-01 with 4 pitch 

levels and automatic inflection. 
Ef Built in audio amplifier with volume control. 




la >^» , V• rfU, 

with the vs-ioo voice synthesizer 




The VS-100 system. (Model I shown) 



69 



95 



Includes 
-VS-100 synthesizer 

- Speaker 

- Power supply 

- Manual 



Specify Model I, III, 4 or 4P. 

Model 4P needs short 50 pin extension cable 14.95 

TEXT-TO-SPEECH SOFTWARE 

• Talker 2.0 for Models I and III 
On disk only 29.95 

• Talker 4.0 for Model 4. Includes Talker 2.0 
for Model III mode. On disk only 39.95 

• Text-to-Speech for tape users 1 9.95 

Small Print!* Model I: unit plugs into keyboard or expansion 
interlace 40 pin bus •Model III.4.4P- unit plugs into 50-pin I/O bus. 
Model III VS-100 works with Model III. 4. 4P Useour-Y-cables" (see next 
paqei if your bus is already used. 

The VS-100: You've never had so much fun with your TRS-80 

"The VS-100 and Talker 2.0 are a major 
accomplishment for such a low price" 

"The VS-100 does everything that Alpha 
claims, and does it surprisingly well." 




n 



It would be hard to find more value and fun." 

80-Micro (December 1984). 




You must agree or 



your money back ! 



Circle 17 on Reader Service card 

J%Q ALPHA 

79-04 Jamaica Ave Woodhaven. NY 11421 






(718) 2965916 



Toll Free Order Line 

800-221-0916 

Orders Only NY & into call 

1718) 2905016 

Hours: 9-5 Eastern Standard Time 



Add S3 00 pe> order <0' shipping handlmq 
tVe jccspl Vua. Masfcaid. Check*. M O 
COO Add $3 00 extra «_■ 

H r ReMdenti add ia'»t Ut tt^m 

Ore/seat FPO.APO Add 10°. mm. 
Dea'ei discounts aiailable ^WP 



FEEDBACK LOOP / by Terry Kepner 



Send any questions or problems 
dealing with any area of TRS-80 mi- 
crocomputing to Feedback Loop, 80 
Micro, 80 Pine St., Peterborough, NH 
03458. 

Qu I have a Model III with three 
■ disk drives. Drive 1 reads only 
disks formatted and backed up in that 
drive; with other disks, I get a CRC er- 
ror. 1 get the same error message if I 
try to use a drive 1 back-up in another 
drive. What is a CRC error and how 
does it affect my system? (Mac Olsen, 
Kamloops, BC, Canada) 

Am The problem is definitely with 
■ the drive's alignment. The 
drive head has drifted from its proper 
position so that it no longer sits direct- 
ly over the disk tracks. The CRC 
(cyclic redundancy check) error refers 
to a special checksum maintained on 
every disk sector. If the computer gets 
a checksum different from the one on 
the sector, you get a CRC error. 

The fact that disks backed up in 
drive 1 are the only ones that work 
proves head alignment is the problem. 
The drive head wrote the disk to 
match its own misaligned format. This 
means that after you have the drive 
head realigned, disks written by drive 
1 will give CRC errors. 

Also, you should make sure that the 
drive head is securely in place: If it's 
loose and drifts in and out of align- 
ment, it's difficult for a technician to 
pinpoint your alignment problem. 

QB Until recently, I've used a 
■ Model 16B in Model II mode 
to run Microsoft Basic programs 
under the CP/M operating system. I 
switched over to Xenix and find that 
the same programs run slower than 
they did under CP/M: It takes up to 
five times longer to load a data file in 
Xenix M-Basic. Could you explain 
why this is so? 
Second, is there some way to bypass 




Xenix's built-in print spooler? Xenix 
forces all printer output to spool to the 
hard disk before it goes to the printer. 
This slows down output tremendous- 
ly. It also prohibits my using LPRINT 
or LLIST statements in MBasic. 

Finally, the print spooler won't ac- 
cept more than three output files from 
a program. If I try to send a fourth out- 
put file, the program stops executing. 
(Craig C. Stephan, Westchester, IL) 

Am Xenix's optimum configura- 
■ tion is 2.5 megabytes of RAM 
with 60 megabytes of hard disk 
storage. With smaller amounts of 
RAM, Xenix slows down, becoming 
almost useless on a 512K system. This 
is because Xenix itself requires almost 
1 megabyte of RAM and uses a special 
memory swap area to load and use 
special modules for purposes like 
loading disk file data into Basic. If 
Xenix lacks sufficient RAM space, it 
must store these modules on disk, 
loading them as it needs them. 

At 512K, Xenix spends a lot of time 
swapping modules into RAM, slowing 
everything down considerably. Basic 
exacerbates the situation by grabbing 
memory away from Xenix. The only 
solution is to buy more memory and 
give Xenix some breathing room in 
your computer. 

The printer spooler is necessary be- 
cause Xenix is a multiuser system, and 



direct printing might interrupt another 
job in progress. Xenix requires that 
you open and name a disk file before 
you print. The LLIST and LPRINT 
commands, when used directly, don't 
have file names, which causes errors. 
However, you can link Basic to the 
printer so that LPRINT goes im- 
mediately to the printer when it arrives 
in the spooler. To do so, use the CAT 
command and Pipe option like this: 
CAT file name.doc (PIPE symbol) 
LTR. The LPRINT statement still 
sends data to the spooler file on disk, 
but you don't see it. 

You can have up to 15 output files 
in M-Basic, with three automatically 
buffered when you enter Basic. If you 
want more output files, you have to 
open buffers for them. Maybe you 
haven't properly opened additional 
buffers; I suggest you reread your 
manual's instructions. 

Qm When I use my Model I for 
■ long periods of time, it gets 
very hot and the keyboard freezes up. 
I tried using a small fan behind the 
computer but that doesn't help. Do 
you know what the problem might be, 
and what I can do about it? (Paul 
Strasser, May field Heights, OH) 

Am You don't say if you're using 
■ an expansion interface (EI). If 
you are, remove both of the inter- 
face's power supply units and place 
them behind the interface. 

Also, cleaning your computer might 
help. Get a vacuum cleaner and 
thoroughly go over the keyboard and 
the EI, as dust could be shorting out 
some of the circuits. 

Another possibility is that the key- 
board unit's on-board power supply is 
beginning to give out. My advice is to 
take the computer to Radio Shack for 
repair. 

Qa I'd like to use my Model 4P 
■ and DMP-110 printer at 
sporting events held off the beaten 



16*50 Micro, March 1965 



llmnH fTUlT ltinl>lT<iiili - 



Newclock-80 $69.95 

The righttimeatthe right price! Keepthetimeanddatewithquartzaccuracy. 
even when your computer is off The backup lithium battery (included) will last 
for over 2 years. Software on tape or disk, please specify. Use "TIMESET" once 
to set the clock. Use "SETCLK" to set your computer's internal clock (at power 
up) or use "TSTRING" so that the "TIMES" function reads the Newclock. 
Connection: Model I: plugs into the keyboard or expansion interlace Model III: plugs into the 
50-pin I/O bus Compatible with all operating systems 




MOD 7 
ON E/l 



Printswltch $59.00 

Do you have 2 printers? Get a Printswitch. Stop plugging and unplugging 
those printer cables With the Printswitch. you can have 2 printers connected to 
your computer and you can select either one at the flick of a switch. Works with 
any printer plotter, or device that uses the parallel printer port. Simply plug the 
14 inch Printswitch cable into your computer, and plug your existing printer 
cables into the Printswitch. This is the nicest unit on the market. Superior quality 
board with gold plated edge connectors For Models I, III, 4 and 4P. 

Alpha Joystick $27.95 

When it's time for fun, don't be without your Alpha Joystick. Do you know 
that most action games are Joystick compatible? Stop pounding on your 
keyboard and enioy real arcade control. The joystick can also be used with 
BASIC programs; simply do J=INP(0) to read the joystick position (8 directions 
and fire button). Model I: plugs into keyboard orexpansion interface Model III. 
4 and 4P plugs into 50-pin I/O bus. The Alpha Joystick comes fully assembled 
and tested ready to plug in and enioy. (Specify Model I. or Model III.4). 











lnterfacer-80 $159.00 

Low cost input and output device. The outputs consist of 8 relays (rated 2 
Amp @ 1 25V), easily controlled using 'OUT" commands. p or example, OUT 0.0 
turns all the relays off. Eight LED's show the states of the relays. The 8 inputs 
are optically isolated, so it's safe and easv to connect external devices 
(switches, sensors, thermostats, etc.). Simple "IN P" commands read the inputs 

Connection Modi 40 pin bus Mod III 4 4 P: requires 50-pm I/O bus converter ($39 95) plugs 
into 50-pm I/O bus. Comes complete with power supply cable and detailed manual 
lUp to 8 mterlacers can be connected to your TRS-80 using our Y- cables). 

Analog-80 $139.00 

8 channel 8 bit Analog to Digital converter. Your TRS-80 can read voltages 
temperatures, pressures, light levels, etc. ©Input range: to 5.1 Volts. 
• Resolution: 20mV. • Conversion time: 1 20 microseconds. In BASIC you can 
take up to 100 readings per second. • Port address: selectable. Upto8Analog- 
80s can be connected to your TRS-80 for a total of 64 channels! 
Connection Model I 40 pin I/O bus Model III. 4. 4P: requires 50-pm bus adapter ($39.95). 
Comes complete with power supply cable and manual 




iHi mt*- * f * * * 




Special Cables 

Disk drive extender cable (8")...C160:$9.95 

Y-CableforModlbusi40pin): • X2-40.$29 •X3-40..S44 • X4...S59 • X5.S74 
Y-Cable for Mod 3 & 4 bus (50-pin): • X2-50...$34 • X3-50.S49 •X4-50.S64 
Disk drive cable (34 pin): •2-dnve...Cl62:$32 •4-drive..Cl63:S45 
Extension cable. 4 foot: • c or printer and drive (34-pin) X165:$22 

• CorModlbus(40-pin)...C167:$24 • For Mod3&4 bus(50-pin)...C169:$28 
Keyboard to E/l (40-pin. 8").. C161:$21 If this is confusing send for our Cable Ryer. 

Our cables are made with hiqh quality gold plated connectors to ensure utmost reliability. 



NO RISK 

We know that ordering by mail can sometimes 
be a hassle, but with Alpha, you are fully 
protected 

1 ) Our 1 5 day money back guarantee protects 
you trom disapointment. 

2) All our products are tested on a TRS-80 and 
waranteed «o 90 days (pads & labor) 

31 We ship 90% of our orders within 24 hours 
41 We are committed to help you 



Green Screen $1 2.50 

Doyoureyesafavor. putonagreen 
screen. Tens of thousands are in use 
for a good reason: they work. Con- 
trast is enhanced and eye fatigue is 
greatly reduced Ourgreen screen is 
curved: it fits right on the face of the 
tube. (Fits Models 1.11,1114.12.16) 



^£/ 



XS X4 X3 XS 



THE 

GREEN 
SCREEN 



Circle 17 on Reader Service card. 



jm ALPHA 

79-04 Jamaica Ave. Woodhaven. NY 11421 



(718) 296-5916 



Toll Free Order Line 

800-221-0916 

Orders Only. NY A Into call 

(71$) 296-5916. 

Hours: 0-5 Eistern Standard Tlma 



Add S3 00 Per Order For Shipping 
And Handling We Accept Visa 
Mastercard. Checks MO COD 
Add Sales Tat Overseas FPO 
APO. Add rr>\.Oea/er Discounts 
Available COD aod $3 00 ertia. 



FEEDBACK LOOP 



track, far from reliable power sup- 
plies. I've heard that you can run a 
micro off an automobile battery. 
Have you any idea how I could do 
this? (Mike Meenehan, West Lafay- 
ette, IN) 

AB What you want is a 12- volt dc 
■ to 120- volt ac solid-state con- 
verter. Make sure the unit you buy is 
rated for the current drain that the 
computer and printer impose. 

Qa I have a Model I with 16K 
■ and an interface. I'd like some 
guidelines for installing more memory 
(16-32K) myself. I've noticed 16 emp- 
ty integrated circuit (IC) sockets under 
the interface and assume they're for 
32K of extra RAM. If I'm right, what 
type of RAM should I use? (Chris 
Miller, Larchwood, I A) 

AM Adding memory to the ex- 
■ pansion interface is easy. 
First, clear a work area on a table, 
with a sheet or newspaper on top to 
protect the table's finish. Make sure 
you disconnect the expansion inter- 
face from power supplies and from 
the computer keyboard. 

Turn the computer over and remove 
its bottom case. This exposes the inter- 
face's circuitry and chips. Notice that 
the 16 empty sockets are in two rows, 
with a notch at one end of each socket. 
A silk-screened outline of an IC ap- 
pears below each socket, and a silk- 
screened notch appears below each 
socket's notch. 

Use 4116 RAM chips with a speed 
rating of 200-350 nanoseconds. 
(Radio Shack sells 41 16s with a speed 
of 350 ns.) Carefully pick up each chip 
by the ends; don't touch the legs, since 
the static in your hands could damage 
them. Place the chip in an empty 
RAM socket, aligning the chip's notch 
with the socket notch and the silk- 
screened outline. 

If the legs stick out too far, push 
them in by pressing the chip sideways 
against the table top. Once the legs are 
in place, press firmly against the top of 
the chip until the chip snaps down into 
the socket. Inspect the chip to make 
sure its legs are all in the socket and are 
undamaged. Repeat this procedure 
with the other chips. 

It's a good idea to ask a friend to 
check your work. Then reassemble the 
interface, reconnect the power sup- 



plies and keyboard, and turn every- 
thing on. To test the chips, type in 
PRINTMEM from Basic— the answer 
should be about 48,340. If it's 15,572 
or 31,956, then one or more chips is 
defective or improperly positioned, 
and you'll have to disassemble the in- 
terface and inspect the chips again. 

If everything looks fine, reassemble 
the system and use a memory test pro- 
gram to find the bad chips. If you 
don't have a memory test program, 
you can use this Basic program to find 
the bad addresses: 

10 FOR 1 = - 32767 TO - 1 :REM Use the MEM 
prompt to protect the memory above 1 5572 

20 POKE 1,0 : IF PEEK (I) <> THEN PRINT 
I "Bad address"; PEEK (I)"number found" 
30 NEXT 

Since each chip is 1 bit of every 8-bit 
RAM byte, a number other than zero 
tells you which chip is bad. Chips 
Z1-Z8 are addresses 49,152-63,535. 
Remember, you can't POKE and 
PEEK over 32,767, so you must use 
negative numbers to access RAM 
above 32767; in this case those ad- 
dresses are -16,384 to -1. Chips 
Z9-Z16 are addresses 32,768-^9,151 
(POKE and PEEK addresses - 32,768 
to - 16,383). Zl and Z9 are bits 7; Z2 
and Z10 are bits 6; Z8 and Z16 are bits 
zero. Therefore, if you get a 3 in the 
address range - 32,767 to - 16,384, 
you need to replace chips Z15 and Z16. 

If you don't have the expansion in- 
terface's technical manual, you should 
order one from Radio Shack National 
Parts (900 E. Northside Drive, Fort 
Worth, TX 76102). 

Don't let all this scare you — I've in- 
stalled RAM chips many times and 
only once did I have trouble. 

QB I have a Model II with CP/M 
■ 2.2. What programs are avail- 
able, and where do I find them? (Ra- 
fael Salgado, Los Angeles, CA) 

Am Thousands of programs will 
■ operate on your computer 
with CP/M 2.2. For commercial pro- 
grams, the primary source is mail 
order. Lifeboat Associates (1651 
Third Avenue, New York, NY 10128) 
has been in the mail-order software 
business the longest. Another good 
source is Montezuma Micro (P.O. 
Box 32027, Dallas, TX 75232). Mon- 
tezuma Micro specializes in support- 



ing Radio Shack computers with 
CP/M software, while Lifeboat serves 
a more general market. 

If you're interested in free software, 
check out the SIG/M and CP/MUG 
libraries. The SIG/M library of public 
domain programs has over 200 disks, 
each containing an average of about 
15 programs. Programs in most lan- 
guages are available. The CP/MUG 
library has 92 disks. 

A good reference on both libraries 
is The Free Software Catalog and Di- 
rectory by Robert Froehlich. It's avail- 
able from Crown Publishers (One 
Park Avenue, New York, NY 10016) 
and costs $9.95. It isn't as well organ- 
ized as I'd like, but it's by far the best 
source currently available. 

I can supply readers with a catalog 
disk that lists and describes the SIG/M 
library's programs. To cover my costs, 
I'm charging $6 for a single-sided 
8-inch disk in standard IBM format, 
$12 for four 5'/4-inch disks in Os- 
borne, Omikron, or Xerox format. If 
enough people are interested, I'll see 
about supplying the catalog disk in 
Radio Shack CP/M + format, too. 

To order the catalog, send a check 
or money order to Terry Kepner, P.O. 
Box 481, Peterborough, NH 03458. 
Be sure to specify your format. 



I'd like to correct an error that ap- 
peared in the December 1984 Feed- 
back Loop. In response to a question 
from Steve Weeber (p. 18), I said Le- 
Script wasn't designed to operate in 
the Model 4 TRSDOS 6.X.X environ- 
ment. That's not true; LeScript has 
always worked under Model 4 TRS- 
DOS and, in fact, takes advantage of 
the 4's 80-column by 24-line display. 

Steve wanted to know why his com- 
puter acted up when he ran LeScript in 
Model 4 mode. Because he'd just up- 
graded from a Model III, I assumed 
his version didn't run under Model 4 
TRSDOS. However, LeScript works 
on the Model III and the 4; Steve 
should have had no trouble running 
LeScript under TRSDOS 6.X.X.H 

Terry Kepner is a freelance writer 
and programmer, and an associate 
editor of SO Micro. He writes monthly 
columns for Portable 100 Magazine, 
Hot CoCo, and Under Color. He's 
been writing about microcomputers 
since 1979. 



18 • 80 Micro, March 1985 



Circle 61 on Reader Service card. 




You've Cot 



TOTAL ACCESS 



i specializing in TWS80 *> 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



QUALITY DISK DRIVES 

These drives are complete with power supply, cover and 
enternal drive connector For TRS-80 Model I. Ill, 4 IBM 
PC and others All drives are Double Density and step 
at 6ms or less SS means single head, DS is double 
head Specify white or silver color cover Add $5 per 
drive shipping unless otherwise specified All drives have 
a one year warranty on parts and labor 

COMPLETE PULL SIZE 
5.25" DISK DRIVES 

40tk Single Side Tandon TM 100-1 $169 
40tk Dual Side Tandon TM100 2 209 

80tk Dual Side Tandon TM101-4 279 

COMPLETE HALF-HIGH 
5.25" DISK DRIVES 

lea 40tk SS TEAC FD 55 A in dual case S 189 

2ea 40tk SS TEAC FD-55A in dual case 324 

lea 40tk DS TEAC FD 55B m dual case 243 

2ea 40tk DS TEAC FD-55B in dual case 424 

lea 80tk DS TEAC FD 55F in dual case 297 

2ea 80tk DS TEAC FD-55F in dual case 522 

COMPLETE 8" DISK DRIVES 

Add $'" tfipcnq pi» ?dn.* taw 

2ea SS TM848-1E s m dual case with fan S 699 ' 
2ea DS TM848 2E s in dual case with fan 799 

BARE 5.25" * 8" DISK DRIVES 

«JC W sriccwu oei *ue 

40tk SS Full Size. Tandon TM 100-1 $ 129 

40tk DS, Full Size Tandon TM100-2 169 

80tk DS, Full Size Tandon TM101-4 239 

40tk SS Half-High, TEAC FD55-A 129 

40tk DS, Half High TEAC FD55 B 169 

80tk DS, Half-High, TEAC FD55-F 239 

8 SS, Thinlme. Tandon TM848 1E 290 

8 DS, Thinlme, Tandon TM848-2E . 360 

TRS-80 MODEL HI/4 DISK DRIVE KITS 

A# S8 sfuawig per >'i 

Internal drive kit complete with disk controller, power 
supply, mounting brackets, cables and all hardware plus 
step-by-step instructions This kit contains everything 
you need (except the Disk Operating System, drive and 
a screwdriver) to convert your cassette Model III or 4 
to fast reliable disk operation Don't confuse this quality 
kit with the high-priced npoffs Thousands of satisfied 
customers cannot be wrong You can |Oin them for 
only $ 199 

OTHER DRIVE GOODIES 

A .1 i 

TRSDOS 1 3 Disk 8, Manual for Model III S 23 

TRSDOS 2 3 Disk & Manual for Model I 23 

TRSDOS 6 x Disk & Manual for Model 4 29 

LDOS for the Model I or III 69 

NEWDOS 80 v2 for the Model I or III 93 

2 -drive cable for Model l/IH/4 24 

2 -drive cable for IBM PC 40 

4-drive cable for Model I 34 

Extender cable, 7" long 13 

5 25 power supply & end , white or silver 59 

8" power supply fan & enclosure, beige 159 

TRS-80 MODEL I 

DOUBLE DENSITY CONTROLLERS 

Add S3 sfoppng. 
Aerocomp DDC Really the best by test $99 

Aerocomp DDC with LDOS 149 

Aerocomp DDC with NEWDOS 80 v2 189 

LNDoubler 5/8' if you need 8" dnves 169 

MEDIA* SUPPLIES 

5" Diskettes SSDD. Lifetime Guarantee. Pk of 10 $16 

5" Diskettes DSDD, Lifetime Guarantee. Pk of 10 21 

5" Flipsort. holds 75 Diskettes 19 

8' Diskettes SSDD. Lifetime Guarantee. Pk of 10 29 

8" Diskettes DSDD, Lifetime Guarantee. Pk of 10 34 

8" Flipsort holds 50 Diskettes 29 

5.25" or 8" Head Cleaning KH 9 

Letter Size 20 lb. Tractor Paper. 2900 sheets 25 

TRS-80 SPECIAL EQUIPMENT 

12 Green Phosphor Monitor 79 

12 Amber Phosphor Monitor 84 

16K 200 nsec RAM Guaranteed 1 year (8 chips) 13 

64K 200 nsec RAM Guaranteed 1 year |8 chips) 64 

64K RAM plus Genuine PAL for Model 4 upgrade 74 



ROSE GETS RIGHT! 

NOW— ROSE'S 
MOD 4 CP/M 



$69 



Complete with Manual 



Rose has developed this streamlined version of CP/M 2.2 that lets 
you run most of your favorite CP/M programs. They are in stock. 
ready to ship to you at this unprecedented low price. 



SPECIAL SOFTWARE DEALS 

WordStar 3 3 (Specify MM or R/S format) S 250 

MailMetg, SpellStar Stanndex 220 

WordStar Professional (Above 4 Progams) 450 

DataStar Data Entry & Retrieval 175 

ReportStar Report Generator 150 

InfoStar Advanced DBMS (Above 2 Programsl 300 

dBASE II Complete With Disk Tutorial 385 

Super Utility Plus 3 2 by Kim Watt 59 

CP'M 2 2 for Model 4 by Monte Zuma .......... 199 

Pickles 8. Trout CP/M 2 2m for the Model 2-12-16 

Floppy Version 179 

Same thing but the Radio Shack Hard Disk . .219 



CP/M® A 80 COLUMN 
FOR YOUR MODEL III 

No need to buy a new computer when 
you can use the Holmes VID-80 CP/M, 
64K RAM and 80 column modification. 
This kit is easy to install and requires no 
soldering. You end up with a complete 
64K CP/M computer with an 80 column 
screen that is still able to run all your 
existing Model III software. Now you 
will be able to use most of the CP/M 
programs that normal people do, such 
as dBASE 1 1 and WordStar. The regular 
cost of this kit is $524.00. Now Rose 
will fix you up for only $399 

SUPER SALE 

Same as above except complete with 
WordStar 3.3 installed and ready to run. 
Only $499 



PRINTERS 8 ACCESSORIES 

ANADEX DP-9725. 240cps plus COLOR 1395 

PROWRITER 120cps, 10" Wide Friction/Tractor 339 
PROWRITER 2. 120cps. 15" Wide Fnct/Trac. ... 595 
ST ARWRITER F10-40cps Daisy Wheel 995 

LPRINTM ASTER F10-55cps Fast Daisy Wheel 1199 
Rutishauser Bidirectional Tractor ,.., 199 

Rutishausc Sheet Feeaer A Best One 695 

A Good. Cheap Sheet Feeder for the F10's 475 



Please add S5 handling charge to orders under S50 

ORDER NOW! 
TOLL-FREE 

800-527-3582 

Orders Only Please 

Call in your order or write to us at the address 
below Texas residents call us at 2 1 4-337-4346 
and deduct $2.00 from your order but you 
should remind me cause sometimes I forget If 
you need technical information or service please 
call the Texas number as the Toll Free lines are 
just for orders only Prices are subject to change 
without notice and are mail order only I accept 
AMERICAN EXPRESS. MASTERCARD and VISA 
and I will not charge your card until I ship your 
goodies. You can send a check or a money 
order. I also accept COD orders but they require 
cash or a cashier's check upon delivery If 
shipping charges are not shown please call for 
the correct amount Add $5.00 handling charge 
if your order is less than $50.00 Shipping 
charges quoted in this ad are for the lower 48 
states only Orders to Canadian address add 
$20 00 Documentation Fee if order is $500.00 
or more Texans add State Sales tax. No tax 
collected on shipments outside of Texas. Be 
sure you know what you are buying 
SOFTWARE IS SOLD ON A REPLACEMENT 
BASIS ONLY - NO REFUNDS. If it is defective 
call us for instructions Please order from me 
now— I need the money and I will not jack you 
around All merchandise carries the original 
manufacturers' warranty and all repairs or 
adjustments will be made by the manufacturer 
or his designated representative. 
NEXT DAY SHIPMENT of Goods in Stock 

TOTAL ACCESS 

P.O. Box 790276 
Dallas, Texas 75379 
214-337-4346 

Copyright 1984 by Total Access 

TRS 80 is a Trademark of the Tandy Corporation 

CP'M is a Trademark of Digital Research 

80 Micro, March 1985 • 19 






?<° 



A» c 



e< 



The 
PRODUCER, 



PRODUCER 

The Professional Program Writer. 



YOU CAN MULTIPLY YOUR PRODUCTIVITY 

WITH THIS SENSATIONAL SOFTWARE BREAKTHROUGH 

Beginners can now program with no experience necessary. 

Professional programmers now have a tool to save days and weeks of time. 



THE PRODUCER 

WRITES CUSTOM PROGRAMS 

EOR YOU! 

Why buy expensive Data Base 
programs that are only half effective and 
require the original Data Base system disk 
to run the finished program'' The 
Producer is a Program Generator that can 
create the exact programs you want 

You don't need any previous 
programming experience since The 
Producer writes all the code for you And 
when the program is finished, it runs 
without the support of the original 
Producer system disk 

What Kind of Programs 
Can The Producer Write? 

With the Producer you can create 
impressive, sophisticated and functional 
software to manage your data. The only 
limit is your imagination You can quickly 
and easily create programs to manage 
such things as mail lists, personnel 
records, inventory control, library 
catalogs, loan calculations, personal 
finances, and maintenance schedules. 

You may never again need to buy a 
canned program to perform a needed task 
related to data storage and retrieval. The 
Producer can write all those programs for 
you. including the capacity to do all 
standard calculations and to generate 
both on-screen and printed reports The 
freeform report generator even allows you 
to design reports on your preprinted 
forms 

How Does The Producer Work? 

The Producer itself is a sophisticated 
program based on years of research and 
development But The Producer was 
written with the end user in mind and the 
program generation process is quite 
simple 

You can begin by using a planning form 
designed to help you organize your 
program ideas The Producer then asks 
you a series of simple English questions to 
enable those ideas to be translated into a 
program format. You use the computers 
arrow keys and graphic characters to 
draw the data entry screen just the way 
you want it 



Then with the press of a button, the 
program generator takes over and does all 
that complex coding for you in a matter of 
minutes. The result is a complete 
program, capable of running by itself 
That means your customized programs 
may be used independently of The 
Producer (A feature not possible with 
Data Base creations ) You may duplicate 
your Producer generated programs and 
even sell them for others to use. without 
paying royalties 

How Difficult 
Is The Producer 
Process to Learn? 

The Producer software package makes 
learning simple An easy to follow tutorial 
takes you through each step of The 
Producer process as you sit at the 
computer (This includes audio cassette 
tapes with the Model I III versions ) This 
hands-on experience not only teaches 
you the process but allows you to create a 
program of your own design while you 
learn The tutorial is all you need to get 
started 

Later if you have need for more specific 
information, you can turn to the fully 
indexed Producer Reference Manual The 
200 pages of documentation cover 
virtually any question you may have so 
you will never be left guessing what to do 
next. The Producer package also includes 
a quick reference card to streamline your 
program operation and, should you ever 
need technical assistance you may call a 
Producer Software technician for free 
counsel and trouble shooting 



Is It True That I Can 

Both Create and Edit 

At Will With The Producer? 

Yes 1 Unlike most other program 
generators. The Producer gives you 
complete freedom to design the screen 
any way you wish Experiment, rearrange, 
"cut and paste" between trial screens 
That's the kind of versatility you get And 
even after your program is complete, you 
can change yourmmd With The Producer 
you can edit and refine finished programs 
without starting over That's a real time 
saving 

What Are Some Other 

Outstanding Features 

Of The Producer? 

• Our B-Tree file structure gives extremely 
fast access to data allows global search 
and replace data entry by batch mode and 
automatic file rebuilding 

• The Screen Generator is the best 
anywhere at any price and gives full 
screen control including graphics You 
can add. insert, or delete, and move blocks 
of text on screen and between screens 

• All math calculations are supported 
including subtotals and global 
recalculations 

• The Freeform Report Generator gives 
you an amazing versatility to design text 
placement, mterfield calculations, and 
formats You can even print reports on 
your standard forms 

• The Producer package also includes a 
free Home Inventory program and a one 
year subscription to The Producer 
Newsletter 



The Producer 
$199.95 

Available now for TRS-80 
Models I, III, IV 

Ask about DATA SHUFFLER, 

New Sort Merge Program S34 95 

Order toll free: 

1-800-433-5355 
Texas 817 274-6998 




Producer Software. Box 1245, Arlington. Texas 76004 



Circle 76 on Reader Service cara. 



PULSE TRAIN 



Getting Fiscal: 
Old Trends, New Trends 



Tandyland 



edited by Bradford N. Dixon 



As you might expect, Tan- 
dy does a booming busi- 
ness every Christmas, but 
in recent years its sales 
curve has flattened out in 
the December quarter (see 
the Figure). This year, Tan- 
dy has an explanation for 
the trend: the addition of 
computers and telephones 
to its product lines. These 
products, often aimed at 
the business or institu- 
tional buyer, tend to sell 
more steadily year-round, 
as they're usually not 
bought as gifts. 

Overall, average monthly 
sales for Radio Shack 
stores at least a year old 
increased 6 percent during fiscal 1984, 
compared to increases of 12 percent in 
fiscal 1983, 10 percent in 1982, 1 1 per- 
cent in 1981 and 6 percent in 1980. 

Tandy's slackening sales continued 
into fiscal 1985: Radio Shack's first 
quarter sales were down. The com- 
pany's computer division is looking to 
the Color Computer and Tandy's new 
PC-compatible micros to buoy sales, 
but it will take more sustained growth 
to get Radio Shack back into its famil- 
iar profit profile. 

Tandy doesn't expect strong earnings 

and sales growth until fiscal 1986, ac- 
cording to a story in the Nov. 9, 1984, 
Wall Street Journal. Tandy's presi- 
dent and chief executive officer John 
Roach said earnings per share could 
easily grow during fiscal 1985, but that 
wouldn't necessarily mean an increase 
in earnings. That's because Tandy has 
bought about 12.8 million of its own 
shares since fiscal 1984. 

Tandy blamed price-cutting and 
competition for its earnings slump in 
two consecutive quarters; the com- 




Figure. Tandy's monthly sales since 1980. 

pany sold more computers, but the in- 
crease in volume didn't offset earnings 
lost through lower prices. 

The Model 100 is the latest target of 

Tandy price-slashing. Tandy's adver- 
tised Christmas sale prices of $399 
(8K) and $599 (24K) are now the 100's 
regular prices. The arrival of Tandy's 
new briefcase computer, the Tandy 
200, on the scene puts the Model 100's 
future in doubt. 

Tandy's director of market plan- 
ning, Ed Juge, told 80 Micro con- 
sumer acceptance of the 100 didn't live 
up to expectations. Juge said the 
Christmas price cut was a planned 
promotion that had been in the works 
since January 1984. 

Tandy's first portable computer is 
still an appealing buy. The newer 
Model 200 has a larger screen and 
Multiplan as firmware, but the 24K 
Model 100 has the same amount of 
memory and costs $400 less. 

Tandy's setting up a training ground 

in New York for users of its 1200 HD 



IBM-compatible com- 
puter. Digital Controls 
Inc. of Norcross, GA, has 
the job of establishing the 
experimental learning 
center. 

Dick Cain, Tandy's di- 
rector of computer train- 
ing, told ComputerWorld, 
"We have trained 200,000 
consumers in the last year. 
We're not fooling our- 
selves that standup training 
is the only way to do it. Dig- 
ital Controls is an enhance- 
ment of our programs." 

Digital Controls uses a 
training system that inter- 
faces a laser disk system 
with a video monitor 
hooked into the Tandy 
1200. Initially, the course 
costs $50. 
The Tandy 1200 program will use 
Digital Controls' already developed 
IBM PC courseware, supplemented 
with training in seven business pro- 
grams, including Lotus 1-2-3, Multi- 
Mate, Multiplan, Wordstar, and 
dBase II. Now that Tandy sells Frame- 
work and Symphony through Radio 
Shack Computer Centers, Digital 
Controls will develop programs for 
those products as well. Training time 
for the packages varies from two to 
twelve hours. 



MicroTrends 

Backers of micro networking con- 
tinue to battle it out with multiuser 
system advocates for the hearts and 
minds of the business computer buyer. 
At the Data Processing Management 
Association's annual meeting last 
November, Tandy's John Roach 
helped make the case for networking. 
Roach, quoted in ComputerWorld, 
said that although multiuser systems 
have their advantages, microcomputer 



80 Micro, March 1985 • 21 



PULSE TRAIN 



makers are adding features such as 
graphics that make micro networks 
more appealing. "Dumb terminals 
don't support graphics, " said Roach, 
"and users are beginning to expect 
graphics oriented systems." 

According to Roach, price is be- 
coming less of a factor in the choice 
between networks and multiuser sys- 
tems. "The cost of microcomputers is 
approaching the cost of dumb ter- 
minals. That will reduce the multiuser 
advantage." 

Tandy, of course, has a stake in the 
acceptance of micros as an alternative 
to dumb terminals. Roach advised 
data processing managers not to wait 
for the perfect system, but to look for 
a system that can be expanded to inte- 
grate new technologies as they 
emerge. 

What are business users running on 

their multiuser systems? Data bases, 
according to Van Chandler, Tandy's 
director of computer and software 
merchandising. 

Chandler, in an article in Novem- 
ber's Software News, said, "Few 
people have recognized how fast the 
Unix and multiuser marketplace is 
growing .... We sell well over 75 
percent of Xenix systems [Model 16B] 
with data bases. Less than half of these 
also purchase word processing." 

According to Chandler, data base 
sales have increased five times over 
what they were a year ago, and multi- 
user systems account for most of these 
sales at Radio Shack Computer 
Centers. 

Chandler sees "not much aware- 
ness" by software developers of the 
growing demand for multiuser micro 
data base management systems. He 
says easy access and easy screen 
modification are more important in 
this market than special program 
features. 

The computer magazine market isn't 

exactly robust just now, but that's not 
stopping Lotus Development Corp. 
from launching a new kind of com- 
puter journal: a monthly software 
magazine for Lotus 1-2-3 and Sym- 
phony users. 

The magazine, called Lotus, is 
scheduled to debut this May. For six 
months, Lotus will offer the maga- 
zine free to 300,000 Lotus customers; 
after that, the annual subscription 
rate is $18. 



Although Tandy has 

already indicated it 

will support MS- Windows, 

it might also support Gem. 



Tandy computer owners who use 
Lotus software won't find Lotus at 
their local Radio Shack Computer 
Center because Tandy doesn't distrib- 
ute other companies' products with- 
out sales agreements. The magazine 
will be distributed through other com- 
puter retailers and by subscription. 

The number of computer specialty 

stores could double by the end of the 
decade, according to Future Comput- 
ing. Right now, about 3,700 U.S. re- 
tailers, including 475 Radio Shack 
Computer Centers, specialize in com- 
puters. In a report titled "Computer 
Stores, USA," Future Computing 
predicts that number will rise to 7,200 
by 1989. 

Almost half of the nation's com- 
puter stores are located in the 21 
largest metropolitan areas. In those 21 
markets, 41 percent of the stores are 
independents, 23 percent are fran- 
chises, 21 percent are manufacturer- 
owned chains, and 14 percent com- 
pany-owned. 

Radio Shack Computer Centers 
rank second in number of outlets, be- 
hind Computerland's 509 stores. But 
the report notes that Tandy's 675 
Radio Shack electronics stores also 
carry Radio Shack computers. The 
Table lists the top 10 computer store 
chains. 





Number of 


Chain 


Outlets 


Computerland 


509 


Radio Shack Computer Center 


475* 


Entre Computer Center 


151 


Valcom Computer Center 


108 


Team Electronics 


84 


IBM Product Center 


83 


Heathkit Electronic Center 


65 


Sears Business Systems Center 


60 


Control Data Business Center 


60 


MicroAge Computer Store 


53 


* Radio Shack also has 675 electronics stores that 


carry its computer line. 




Table. Top 10 computer store chains. 



Way back in June 1984, Microsoft 

Corp. said its MS-Windows program 
would be released by the end of Au- 
gust. August came and went, and Mi- 
crosoft moved the release date back to 
mid-November. In mid-October, 80 
Micro got word that MS-Windows 
would once again miss its target date 
and that the product may not be on 
the shelves or in applications from 
other vendors until June 1985. 

Granted, MS-Windows is an ambi- 
tious project, originally described as a 
graphics-rich universal operating envi- 
ronment using pull-down menus, rub- 
berbanding, and animation. But it's 
hard to keep up high expectations 
about a product whose release is de- 
layed time and time again, even after 
promised introduction dates. 



Update 

Microsoft and Digital Research, old 

rivals in the operating system game, 
are eyeball-to-eyeball once again. 
Digital's new Gem environment 
could pose a direct challenge to Mi- 
crosoft's long-time-no-see Windows 
program. Gem (graphics environ- 
ment manager) is a Macintosh-like 
windowing program due for release 
in the first quarter of 1985. 

Although Tandy has already in- 
dicated it will support MS-Windows, 
it might also support Gem for its 
MS-DOS computers, according to 
Ed Juge. 

Digital Research says Gem soft- 
ware will run on any MS-DOS based 
machine equipped with 256K of 
RAM, two disk drives, a bit-mapped 
display, a mouse, and MS-DOS 2.0 
or a later version. Digital expects all 
existing MS-DOS software to run un- 
der the Gem operating system. 

Just what we all need: more software. 

According to a survey of exhibitors 
planning to attend the March Info/ 
Software 85 show in Chicago, more 
software will be introduced in 1985 
than in 1983 or 1984. 

Thirteen percent of the companies 
responding to the survey said they'll 
release substantially more software in 
1985 than in the previous two years. 
Fifty-three percent said they'll intro- 
duce "somewhat more" software. 
Twenty-eight percent plan no in- 
crease, while six percent said they'll in- 
troduce fewer programs this year. ■ 



22 • 80 Micro, March 1985 



TRS-80 MODEL 4 

Word Processing Program 




80x24 DISPLAY using TRSDOS 6 or any MODEL 
Built-in FORM LETTER and MAIL-MERGE capabilities. 

□ Built-in HYPHENATION capabilities. 

□ 55 seperately programmable MACRO FUNCTION KEYS. 
I J Performs PROPORTIONAL-SPACE right-margin justification 

on over 80 different printers (all drivers included FREE). 

□ Integrates with ELECTRIC WEBSTER spelling checker. 

□ Keyboard entry and printing of 31 European Characters and 
special symbols. 

□ LeScript also available to run on TRS-80 MODEL I, MODEL 
III, LNW-80, LNW-TEAM (80x24), Holmes VID-80 (80x24), 
and Lobo MAX-80 (80 x 24). 

r CP/M and TRS-80 MODEL II versions now available (only 

$199.95). 
L: MODEL 2/12/16 Versions now available for TRS-DOS 2.0, 

TRS DOS 4.2 and CP/M. 



CAU. 1 -305-259-939 7 



ANITEK SOFTWARE PRODUCTS 
PO BOX 361136 Q MELBOURNE. FL 32936 



free shipping within the u.s.; outside the u s add $10 00 for shipping. 
Florida residents add 5% sales tax all orders prepaid by check. 

MONEY ORDER CREDIT CARD OR C O D c.rcle 141 on Reader Service card 



TRIAL-SIZE DISK OFFER 

Fill out and return this coupon to receive a free trial-size copy 
of the LeScript word processing system - a S25 00 value 



Name 


Address 


City 




State /ip 


telephone 

My system is 

Model l/lll D Holmes VID-80 
D Model 4 a Model II 
o MAX-80 □ CP/M Model 4 
LNW-TEAM a CP/M MAX-80 

Send to ANITEK • PO Box 361136 • 


□ CP/M LNW TEAM 
n CP'M VID-80 
TANDY -2000 

a IBM PC 

Melbourne. FL 32936 



Circle 18 on Reader Service card. 



From Computer Plus to YOU . . . 
PLUS etter PLUS .He, PLUS 




Model 100 8K $339 
Model 100 24K $510 









1 i 


£#■■: 


^31 




Color Computer II 
w/16K Ext. Basic $135 
W/64K Ext. Basic $179 




Tandy 1000 $999 
Tandy 1200 $2595 





Color Computer Disk Drive 
Drive $289 Drive 1 $220 



• 




■ 

Ti 1 






™? " 








i DWP210 $489 § 
DWP510 $1295 1 



BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 




PRINTERS 




DISK DRIVES 




Model 4 Portable 


970 


Radio Shack TRP100 


229 


Model III 4 Drive 


465 


Model 4 


970 


Radio Shack DMP105 


160 


Model III/4 Drive 1 


220 


Model 1000 


999 


Radio Shack DMP110 


299 


Model Ml 4 Drive 2 


259 


Model 1200 


2595 


Radio Shack DMP430 


660 


Model III/4 Drive 3 


220 


Model 2000 2 Drive 


2299 


Radio Shack DMP2100P 


1699 


Primary 15Mg Hard Disk 


2239 


Model 2000 W/Hard Disk 


3599 


Silver Reed EXP550 D.W. 


430 


ETC. 




Model 16B 1Dr 


3375 


Star Gemini Powertype 


345 


CCR-81 Recorder 


52 


MONITORS 




Star Gemini 10X 


265 


Cassette Tapes (10 Pk) 


10 


Radio Shack CM-1 


599 


Panasonic P1091 


315 


16K Ram Chips 


25 


Radio Shack VM-1 


175 


C. Itoh Prowriter 


320 


64K Ram Chips 


49 


Radio Shack CM-2 


449 


Okidata and Epson 


CALL 


Model 4 64K Upgrade Kit 


79 


Radio Shack VM-2 


139 


MODEMS 




64K Printer Buffer 


199 


Radio Shack VM-3 


179 


Hayes Smartmodem II 


215 


Printer Cables 




Amdek Color 300 


265 


Hayes Smartmodem 1200 


505 


Printer Ribbons 




Amdek Video 300G 


145 


Novation J-Cat 


115 


Printer Paper 




Taxan Color 420 


425 


Radio Shack AC-3 


125 






Taxan Color 220 


245 


Radio Shack DC Modem I 


89 


Radio Shack software 10% off. 




Taxan 121 Green 


165 


Radio Shack DC Modem II 


160 


Send for complete listing of 




Taxan 115 Green 


125 


Radio Shack DC Modem 2212 


315 


brand name software and hardware. 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 
vr$A 



com 




P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



TRS-80 is a registered trademark of Tandy Corp 



READER EXCHANGE 



Wanted: Model 1000 
Patches and Tips 

In our June 1985 issue, we will 
publish a feature article detailing 
patches and hints for the Model 
1000. If you have an idea you'd like 
to submit for possible publication, 
put it on the Tandy 1000 SIG of 80 
Micro's bulletin board (603-924- 
6985). The UART parameters are 
300 baud, 7-bit words, 1 stop bit, 
and even parity. Alternatively, you 
can send your ideas to Dave Row- 
ell, 80 Micro, 80 Pine St., Peter- 
borough, NH 03458. We will pay 
$25 for each one published. 

Project 80 

Roger C. Alford's hardware col- 
umn, Project 80, does not appear 
in this issue. We will publish his 
two-part CMOS single-board com- 
puter project in its entirety next 
month. 




Color Coordination 

I have a Model 2000 with the high- 
resolution color monitor and graphics 
chip kit. I've read that the Model 2000 
screen display is slow when using Ba- 
sic. One solution is to hit the F12 key 
during the keyboard scan when you 
boot up your system. This method, 
however, inhibits your graphics capa- 
bilities. Here's an alternate that gives 
you both the fast screen display and 
graphics: First, boot up your system, 
call Basic, and then hit the F10 key 
(screen 0,0,0). This puts the computer 
in the text mode with color disabled. If 
you want graphics capabilities, use the 
correct screen command and then 
return to your text with the F10 key. 

Richard R. Hensel 

542 Adams Lane 

Delaware, OH 43015 



Easy Conversion 

Alan Cirkovic's "Little Wonder" 
(December 1984, p. 72) works on the 
Models 1000, 1200, and 2000 when 
you incorporate the changes shown in 
the Program Listing. Also, to scan 
through the file one record at a time 
on the 1000, 1200, or 2000 use the 
plus ( + ) and minus ( - ) keys instead 
of the arrow keys. 

— Eds. 

More Dumping 

These alterations adapt Skip Mur- 
row's DMP 400 screen dump (Tidbit 
#7, June 1984, p. 143) and Mark 
Rife's modifications (Reader Ex- 
change, October 1984, p. 129) to run 
on the Gemini- 10X printer. First, 
change lines 6020 and 6260 to read: 

6020 LPRINT CHR$(27)CHR$(65)CHR$(6) 

'Adjusts line feed spacing 
6260 LPRINT CHR$(12) 'Form feed 



Now add the following lines: 

6022 LPRINT CHR$(27)CHR$(71) 'Double 
strike 

6024 LPRINT CHR$(27)CHR$(85)CHR$(1) 
'Uni-direction 

6262 LPRINT CHR$(27)CHR$(64) 'Re- 
initialize printer to original setting. 

I chose the double strike and unidi- 
rectional codes because they give you a 
sharper printout. 

Dan E. Sitch 

R.F.D. 1 Box 445 

Pittsburg, NH 03592 

Reader Assistance 

Does anyone have a patch for Mod- 
el III SuperScripsit that will let me use 
the full 80 tracks on drive zero? 1 con- 
verted SuperScripsit to an 80-track 
drive and put all of the Electric Web- 
ster dictionaries on the same disk. Al- 
though everything fits onto the disk, I 
get the message "No room left on disk- 
ette" when I try to open the document. 

Jerel Peterson 

Box 182 

Cando, ND 58324 

Error Trap 

The Program Listing in the final 
Pascalculations column (December 
1984, p. 148) is incomplete as pub- 
lished. For a copy of this missing sec- 
tion (EVAL), write to Reader Ex- 
change, c/o 80 Micro, 80 Pine St., 
Peterborough, NH 03458. 

— Eds. 



Program Listing. To make "Little Wonder" run on the Models 1000, 1200, and 2000, 
modify it as shown here. 

10 KEY OFF: CLEAR 200:CLS : PRINT STRINGS ( 63 ,"*"): PRINT: PRINT 

80 HDS="B" ' highest drive number 

85 DFS="B" 'default drive for files 

380 IF YC=3 THEN CLS:INPUT "WHICH DRIVE" ;D$: IF DS>MD$ THEN 210 ELSE QS=D$+" : " :FI 

LES Q$:F0R X=l TO 15000:NEXT:GOTO 210 

520 IF INSTR(FLS,":")<>0 THEN DNS'LEFTSI FLS, 1) : FLS=RIGHTS ( FLS ,LEN(FLS) -2) : ELSE 

DNS-DFS 
530 IF INSTR(FLS,".")=0 THEN FLS=FLS+" . DTA" 
540 FL$=DN$+" : "+FLS 
2020 OPEN FLS FOR INPUT AS #1 

3140 IF IS=CHRS(45) OR IS=CHRS(95) THEN Y-Y-ltIP Y<1 THEN Y=l 
3150 IF IS=CHRS(43) OR IS=CHRS(61) THEN Y«Y+1 
6050 OPEN FLS FOR OUTPUT AS tl 



80 Micro, March 1985 • 25 




NOW the One Person Who Cares Most About \four 
Computer Can Protect Its Data — 



YOU! 



Introducing... Memory Minder from 
)&M Systems 

The most advanced disk drive 
testing program on the market. 

Until recently, only trained technicians using 
special equipment could check your disk drives 
for potential or actual problems. But now, thanks 
to major breakthroughs by l&M Systems, Ltd. 
and Dysan Corporation, YOU can be your own 
computers technician. 

Memory Minder is the most comprehensive disk 
diagnostic program available for microcomputers. 
With Memory Minder, you can periodically test 
disk drives to monitor long-term drift of head 
alignment, index hole timing, spindle speed, 
directional seek, and many other parameters. 
Then, if your head is out of alignment, Memory 
Minder can accurately align it once again. Early 
detection and correction of these problems will 
help protect you against costly data loss and 
down time. 

And with Memory Minder, you don't need a 
technical background to perform these tests. 
Simply follow the easy instructions in the 
manual or on the screen's menu. Now you can 



use state-of-the-art software to care for your 
hardware. 

Memory Minder is currently available for IBM. 
TRS-80, Kaypro and Sanyo systems. Only from 
l&M Systems. Prices start at $79. 



Id like more information on Memory Minder 



Please send me your complete brochures 

Send me Information on other line products 

from IGM Systems 

I have the following computer 

Name 



Address . 



City 



State 



Zip 



i//A 

J & M SYSTEMS, LTD. 

151 00 A Central Avenue S.E. 
Albuquerque, N.M. 87123 

505/292-4182 

i. „.,..,,.. __j 



26 • 80 Micro. March 1985 



Circle 101 on Reader Service card. 



DEBUG 



To properly install the 13 patches in 
Andy Levinson's "Patch Work" 
(January 1985, p. 112), insert one 
space before the asterisk and one 
space after the number following the 
asterisk. 

—Eds. 

Errors in J. C. Sprott's utility, "The 
Missing Disassembler" (October 
1984, p. 108) generate incorrect Z80 
mnemonic code. First, to correctly 
decode the two byte instructions, 
change line 360 to read: 

360 IF J = 203 AND Jl>63 THEN A(J) = 

A3(INT(Jl/64)): 
B = RIGHT$(STR$((J1 AND 56)/8),l)+ "," 

+ B1(J1 AND 7) 

Second, the operand, "A," for the 
SBC opcodes is missing and the mem- 
ory refresh register instructions (LD 
R,A and LD A,R) aren't included. I 
added the following lines: 

145 FOR 1 = 152 TO 159: B(l)= "A, "Bl (I 

AND 7): NEXT 
935 IF Jl=79 THEN A(J)= "LD": B(J) = 

"R.A" 
1005 IF Jl=95 THEN A V 'J)= "LD":B(J) = 

"A.R" 



Also, change the first 30H in line 
490 to 20H and OURIR in line 510 to 
OTIR. I added the statement ELSE 
F = F + "." to line 330 to show the 
conventional format for nondisplay- 
able ASCII characters. 

Ken Wodtke 

1913 Cervato Dr. 

Camarillo, CA 93010 

Here are our solutions to the prob- 
lems you might encounter with 
"Scripsit Extras" (August 1984, p. 
68). First, if you get the response "File 
access denied due to password protec- 
tion" when you try to use Debug, use 
a general file program that unprotects 
the Scripsit file. We use NEWDOS80 to 
avoid password restriction problems. 

In addition, the problem with print- 
ing occurs because the area chosen for 
storing the translation table isn't an 
unused memory area in your Scripsit. 
Instead, the print function uses this 
area. The solution to this problem is to 
change the table's location; the first 2 
bytes in the program are an ideal 
place. First, relocate the table to the 



new address (hex 5202 or 5303 depend- 
ing on your version) and make the fol- 
lowing substitutions: 

Replace 

434F 5059 5249 <748 5420 3139 3739 20425920 
5241 4449 4F20 
5348 4143 
with 

9B1B 9C1C 9D1F 315B 325C 335C 345E 355F 

3660 387C 397D 

307E3A7F 

Finally, replace the old table ad- 
dress of 7AD8 with either 5202 or 
5203. Newcode 1 should read: E5 06 
0E 21 02 52 (or 53). Good luck with 
your updates. 

Richard W. Harrison and 

Louis S. VanSylck 

2107 Middlesex Road 

Upper Arlington, OH 43220 



Send correspondence to Reader Ex- 
change, c/o 80 Micro, Pine St., Peter- 
borough, NH 03458. 



Circle 214 on Reader Service card. 



TRS-80" "CAN YOU BUY DIRECT? 



WILL YOU PAY TOO MUCH? 



M0DEL4 128K 2 DRIVES 



j 



Ask About Our 

"30 DAYS 

Buy Back -Policy" 



MODEL 12 768K2 DRIVES 
II 

MODEL 16B 768K 1 DRIVE 
PLUS 15 MEG HARDDRIVE 




ISAVE SALES TAX* 
r PLUS DISCOUNT 

[ 'TEXAS RESil 



DENTS ADO ONLY 4«t 



jJJUJMW 



FORT WORTH COMPUTERS 




WE ARE SERIOUS ABOUT SAVING YOU MONEY 



(Located 30 miles from Fort Worth) 
377 Plaza • GRANBURY • NR FORT WORTH, TEXAS 76048 

TOLL FREE NUMBER: i-800-433S-AV-E 

Monday thru Friday — 9:00 a.m. to 5:00 p.m. Texas Time 
(Order Inquiries/Customer Service &) IN TEXAS: 817-573-4111 i 



Price Changes 

Occur On A 

Daily Basis. 

Please Call 

1-800-343-8841 



PRICE BREAKTHROUGH 



Price Changes 

Occur On A 

Daily Basis. 

Please Call 

1-800-343-8841 



Super Sale on New Hard Drives 




Introducing 



MEGADISK 



TM 



Warranty - One Full Year 
DRIVE A HARD BARGAIN 



Winchester Hard Drive ready to 

run on the TRS 80 Model I/III/IV/4P, 

Color Computer. I.B.M.-PC, Apple, 

Franklin, Max/80. 

Software Drivers: LDOS, NewDos/80, 

Dosplus, TRSDOS 6.0. CP/M 

CALL LOR NEW LOW PRIC h 

Complete systems starting at $699.95 



Call Toll Free Ordering 1-800-343-8841 






Disk Drive Upgrade 

for Model III IV easy to install system 

Starting at 130*95 "S&ftiiSS" 



High Quality Lowest Price 

Drive 0, 1, 2, 3 

for the 
Color Computer 
Starting at tt*^ c 1& F $&SP 

SOFTWARE SUPPORT, INC 

1 Edgell Road. Framingham. MA 01701 (617) 872-9090 Tclcx-383425 



Minus M..n Ihtu Frt S> M) am In J «> pm lE-S.T.I Vn l"ln in la ! ; <> (Ml 



DEALER INQUIRIES INVITED. 



TERMS: 

M.C.. Visa/Amcx and personal 

checks accepted at no extra charge 

COD . please add S3 00 

Shipping: Please all tor amount. 

Nm responsible for typographical errors. 

Prices subject to change. 

TRS 80 Registered Trademark Tandy Corp. Apple Registered Trademark 

IBM-PC Registered IBM Corp. Franklin Registered Trademark Franklin Corp. 

LDOS Reg logical System Inc. Dosplus - Micro Systems Software 



CANADA 

MICRO R.G.S. INC. 

731. CXRRE VICTORIA. SUITE J03 

MONTREAL. QUEBEC. CANADA. HIV 213 

Regular Tel. (514) 287-1563 

Canadian Toll Free 800-361-5155 



Service! Service! 

All in slock products Wt ■■';-. 

within 24 hours of order 

Repair /Warranty servae (j performed 

within 24 hours of receipt unless 

Otherwise noted. Wk OCCtpt C.O.D., 

foreign and APO ord, 

and DAB corporate P.O s accepted. 

Apple Computer C Orp 

M,iv 80 Registered Trademark LobO Ini 
Newdos. 80 - Apparat Inc. 



28 • 80 Micro, March 1985 



Price Changes 

Occur On A 

Daily Basis. 

Please Call 

1-800-343-8841 



PRICE BREAKTHROUGH 



Price Changes 
Occur On A 

Daily Basis. 

Please Call 
1-800-343-8841 



MECADISK™ HARD DISK DRINK SYSTEMS TOLL FREE ORDERING 1-800-343-8841 

For ihe IBM/P< A ^ndy 1000, TRS/80 Models I 111 1Y/4P, Compaq, Eagle. Sanyo. 

Tava. PC Workalikes. Color Computers. Apple/Franklin. Hcalh/Zenith, Max/80 
Complete with Hardware, Cables. Software and Quiklit Installation 
3 Megabytes internal Mount starting at $ 449.95 

10 MegabMes Internal Mount starting at 599.95 

20 Megabytes Internal Mount starting at 999.95 

5 Megabytes External System starling at 649 95 

10 Megabytes External System s , arlinK a( g 49JS 

20 Megabytes External System s(JirtinR a| U9995 

3.3 Megab\tes Kodak Baekup S>slem starting at 599.95 

Streaming Tape Backup System '...'.'.'.'.'.'.... starting at 699.95 

DOS Sxstems Available- ,BM ■' Hca,h _ DOS - L0 « 20 - 21 - 30 - or la,er ~ A PP |e PnmkMn - DOS 3.3. Prodos 

rRS/80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus. CP/M. COCO DOS. Max/80 l.DOS. OS9 

WARRANT1ED FOR ONE FULL YEAR - PARTS AND EABOR - 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 



MoPPs Disk DRIVES 
Oui i>i-. Drives are 1 I approved Oui I loop) Drive < abincti and Posvei Supplies 
arc 1 nderwruers 1 aborator) I wij and have passed ine required Federal 
(. onimuiikations I'an 15 Section H EMI KM tests 

Warrants on all dill drives is INK full vran purls anil labor. U.hi.imI- on llnppv ilisk 

drive power o sapB ti is r»*«- IS) >rar>. in <ranaai) <>r <>ui ol svarraM) am-fcc is 24 hour 

inrii .1 r, 1, Hid un .1" disk dns.s. 

l.in.tiiM — I nil Mriiflit Dfisvs 

100-1 Smglc Sided 4m ik Bare SI28JJ0 

In t ..-. -1 h Powi Suppl) imv< 

Dual Dnses in One < abinei >2v i » ! 

km : Dual Sided 4m a Han- ... ins on 

In 1 .in. with ft imci suppl\ ... 209.93 

Dual Di. v^v mi One <■ abinei ... M4.9J 
MjIi iii.ii Drissa 

65-1 Single Sided 40 ik Bare 1:5.011 

lb Case svith Poster Suppis. 159.93 

Dual Drive*, m ( >iu < abinei tow* 

65-1 Dual Mderi 411 Ik llarr 145.00 

In ( as.' with Power Mipplv |7').V5 

Dual Dri»i-s in One < aliint-1 .149.95 

■ 4 Dual Sided BO ll Ban 165.00 

In ( use miih Pown Suppl) w.i< 

Dual Dinn in One t abinei tS9.9< 

11 \< Hull Mmh Dri«ta 

<< \ Single sided 4(i ik Bare i-io.ui 

In ( .i>, Miih POWCI Suppl) |f.'»s)« 

Dual Driscs in One Cabinet 319.93 

$SH Dual Skied m> ik Bare 160.00 

In Case "111 i\i\mi Suppl) IW.V5 

Dual Dnses in One 1 abinei 159,93 

"I Dual sided mi il Ban 180.00 

In Case »iii Powei Suppl) ... ... 2i9.y« 

Dual Drives in ' >ne r abina 189.9 
Vpplr franklin Disk Drives 

.'5 -ui irjsk in < asc »wh Cable and Soltware 159.95 

i onirollet c art! ten i»o i)i«k Drives 49.93 

i omUnailon Price foi Disk Drive and < onirolki iw.95 

( iiiniiiiHiiiri' Disk Drives 239.93 



( nl. U( < OMP1 If P. DISK HKISI xV.Nl I Ms WD \|||> IN PKODKIs 

40 In.i Single Head Drive ..::hi asc, Power Supply, t able 

< miroller, Instruction Booklet. Diskettes >.;">'.•« 

\bove ssi-ii Dual Drives in One Cabinei 413.93 

411 li.uk Dual IK ul .miIi Cast. Power Suppl). Cable. 

« nnirollif, Insirutiion Hn.ikl.-I. Diskrllrs VMS 

\lniir vsiih Dual Drives in One ( abinei 429.95 

121 Mentor) Upgrade Kn i^vis 

Dual DOS Switcfi 19.95 

Wnii Second Dos System — JD<is. KsDos. Micro Dos 4MK) 



IKS HO II \KDVV\m 
M.idel I siarler "svsiem DeNvercd bv I Ps 
One singlr sided Disk Drive, ( ase. ( able. Pii»rr suppl. . 

I KMMrS |J and Manual S220.IMI 

Model HI i\ lass 10 Install Disk Drive Systems 10995 

Mentor) l pgrades 41 if. and jim siartioa u I SO ea. 



COMF1 IKRs 

All "I our loinpultr. iiime »ilh 1 full one vrar Warrant) Paris and I abur 

Huur Scr.ler un all in simk parts. 

IBM P( -256K IWo Hupps Drives, one wm Vnttrant) 

Wuii Moniioi lard and Midi Resolution Monitoi 
IBM ft -:s(.k 5 Megabyte Drive. One Flopm Dine 

Win. Moniioi Card and MonocnnMW Moniioi 
10 Megabyte System 

Wiiii Moniioi ( aid and Monochrome Monitor 
IBM Lookalike Moniioi mkHi s 650s resolution » cable 
IRS Mi Model l\ ( ompuiet I2SK Dual Drive RS232 



24 

11,893 00 
2.193 00 

:.4>j*imi 

2.(.95 00 
2,<.4> 00 
2,995.00 

I99.1K1 

1 .095.00 



PKIMtKS 
Dim Matri* 

siai Micii'iiies 

Gemini X Series Parallel 120 ( PS 
Delia 10 l< l«l( PS 
Rad.v III is 200 1 PS 
Panasonic 1 1 »« » 

DaiSI Wheel 

Silver Reed 44o sn 1 oiumn 12 ( PS 

350 132 Column 19 ( p>. 

"0 132 ( olumn '(. i ps 
Olympia 132 t olumn u t ps with Form and Iractoi 
m.i- Micronka um ( olumn II ( PS 
Apple Franklin Primet Interface « Graphics and t able 

I'rinict tables 

Printer Papa - Mkropcrl Edge kkio Sheen 



uattini ai S23V.95 

starting ^ ■-' ''' 
starting ai 649,95 

249 9< 



H5.V3 
439.95 
895.00 

199.95 

> s ; ms 

M ■'■ 

19.93 

id ')<■ 



starting ai 



UK IIIH AI 

Surge Proiectorv — Line Filters — SL Waber — 6 Outlets wiih Switch S 19.95 

Uninterrupiable Power Supplv — 22' Watt $399.99 



Volksmodem 300 Baud 

Signalman Mark X Autodial 

Mark Ml 1200 100 Baud Vnodial 



S 59.95 

. 12.1.95 

2s4 93 



Mill IN HOARDS I OK Mil. IHM 

STB Rio Pius I2KK 

Super Rio I2»k 

(jraplux l'lu» 

Graphics Plus 11 

Parallel Primei Port 

Serial Pon 
Monochrome Board wilb Parallel Primei Pm 
Quadmm Quadboard '12 i2sk 
Quadcoloi 1 

Ouadsolor II 



1299 93 
219.93 
283 00 
>!! 00 
74.93 
84 •>< 
2HHIO 
269 93 
215.93 
439.93 



\l I IN-sriKkllKMSsHIPPFIi WITHIN 24 HOI KV s AMI l)\V MIII'PIN(. 
PROVIDKDHVKFQl ESI WIIHOl I \N» EXTRA HANOI IN(i( HARGES. 



MIS( H I .ANFOls 

Diskrlli's in 10 l*aek imm N 12.95 

Iwoprint Switches from 99.95 

Disk Drue tables. ... noni 16.00 

Maintenance Cleaning kits ... 12.00 

Parallel Printer Buffers > K 149.95 

llopps Disk Drue ( ahles 

I DrKt imki 

: Dnscs ig.93 

Heaih ■ A-nith 2 Dnvc I able. — Shielded 19 ;• 



SOFTWAaRE SUPPORT, INC 

1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am Co 5:30 pm (E.S.T.) Sat. 10 am to 3:30 pm 

SER VICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday 

WARRANTIES — Disk Drives — One Full Year Parts And Ijibor. Floppy Disk Drive Power Supplies — Five (5) Yean. 

SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Price Changes Occur On A Daily Basis. Please Call 

Toll Free 1-800-343-8841 

For Our Latest Price Saving Specials. 



© 1985 



80 Micro, March 1985 • 29 



Circle 232 on Reader Service card. 



m n f=i 



MODEL 4 



ELECTRONICS 



MODEL 16 



MODEL 12 




256K MOD2000 W/MONO MONITOR 2079.00 

256K MOD2000 W/COLOR MONITOR 2379.00 

256K MOD 1200 HD 2 DR 2359.00 

128K MOD 1000 W/MONO 2 DR 1259.00 

128K MOD 1000 W/COLOR 2 DR 1519.00 

24K MOD 100 PORT 469.00 

24K MOD 200 PORT 769.00 

64K MOD 4 2 DR 935.00 

64K MODEL 4P 2DR 935.00 

512K MOD 6000 2DR 3479.00 

80K MOD 12 2 DR 2719.00 

15 MEG HARD DISK 1519.00 

35 MEG HARD DISK 2309.00 



DMP 105 PRINTER 145.00 

DMP 110 PRINTER 269.00 

DMP 120 PRINTER 349.00 

DMP 430 PRINTER 585.00 

DMP 2100P PRINTER 1489.00 

DWP 210 PRINTER 429.00 

DWP 510 PRINTER 1139.00 

TRACTOR DWP 210 99.00 

TRACTOR DWP 11/510 159.00 

TRACTOR FEED DMP2100P 115.00 

PARALLEL PRINTER SWITCH 96.00 

PARALLEL PRINTER CONTROLLER 179.00 

PARALLEL PRINTER CABLE 29.00 



100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 

ALL RS SOFTWARE 20% OFF CATALOG PRICE 

CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 



(817) 825-4027 



NOCONA ELECTRONICS ♦ box 593 • nocona, tx 76255 



30 • 80 Micro, March 1985 



REVIEWS 



Through the Looking Glass: 
The Tandy 1200 HD 



by Bradford V Dixon 



edited by Ryan Davis-Wright 



Tandy's newest effort 
in the MS-DOS world 

is, in their words, a "mir- 
ror image" of IBM's 
hard-disk PC/XT. But the 
Tandy 1200 HD offers 
one big advantage: a 
$2,999 price tag, com- 
pared with $4,395 for the 
IBM. Functionally, the 
1200 is as compatible with 
the PC/XT as you can get. 
And with the money you 
save from the lower price. 
you can afford some of 
the software you'll want to 
nin on the machine. 



Product Specifications 

Like the PC/XT, the 
Tandy 1200 is built 
around Intel's 16-/8-bit 
8088 microprocessor (see 
Photo 1). The detachable 
keyboard Ls lighter than 
the PC/XT's and it's ap- 
proximately 17 ! 4 inches wide, T¥% 
inches deep, and 1 Vi inches high. The 
system unit itself measures about 19 
by 15»/3 by5-V4 inches. 

The Tandy 1200 comes with 256K 
RAM standard, expandable to 640K 
with additional memory boards. One 
5 V* -inch floppy drive acts as drive A on 
the machine, while the 10-megabyte, 
5 '/i -inch fixed disk is configured as 
drive C. The 84-key keyboard Ls in the 
familiar PC/XT style and its softer feel 
reminds me of the Tandy 2000 keyboard. 

A parallel printer port comes stan- 
dard, as do the plug-in disk controllers 
for the floppy and hard disk drives. 
While the 1200 provides five expan- 
sion slots, only three accommodate 
add-on cards; Tandy uses the other 
two for the disk controllers and the 
optional (but necessary) monochrome 
or color graphics card with a video 







Photo I. The randv 12(X) HD 

port. The color graphics card (catalog 
number 25-3043, $299) supports both 
the monochrome and color graphics 
capabilities of the machine, while the 
monochrome board (catalog number 
25-3040, $219) supports only a mono- 
chrome monitor. 

Unlike Tandy's other computers, the 
1200 comes with no operating system 
or Basic. You have to buy MS-DOS 
and GW-Basic as a separate package 
(catalog number 25-3130, $89.95). This 
seems to underscore Tandy's philos- 
ophy that the 1200 isn't aimed at the 
diehard programmer; rather, Tandy 
targeted the 1200 for a business envi- 
ronment where the user has little need 
to leant MS-DOS or Bask. 

Setting l,'p the Machine 

The 1200's inside and outside ap- 
pearance is similar to the PC/XT's, the 



Tandy logo being the most 
noticeable difference. The 
front of the machine fea- 
tures the 10-megabyte hard 
drive on the right, with the 
floppy drive to its left. 

The on /off switch is on 
the right side of the rear 
panel. The back of the sys- 
tem also holds the power 
connector, power supply 
fan. speaker vent, key- 
board connector, and five 
expansion slots. 

When you begin config- 
uring the 1200, you may 
have to open the machine 
to set the DIP switches for 
the amount of RAM and 
the color monitor. All you 
have to do is remove four 
screws on the back to slide 
off the cover. 

Since the unit doesn't 
come with a monochrome 
or color card, you have to 
install one. The layout in- 
side the machine is unclut- 
tered and there's ample 
room to get at the DIP switches (see 
Photo 2). 

After inserting a color or mono- 
chrome graphics card and connecting 
the 1200 to a monitor, you're ready to 
set up the system. The Tandy 1200 
MS-IX)S disk you buy to use the ma- 
chine contains the LLFDFMT (low- 
level, fixed-disk formatting) utility, 
the first step in formatting the hard 
disk to run as a system and data disk. 
While the entire process of formatting 
the fixed disk takes an hour, you only 
have to do it once. 

After formatting the hard drive, 
move the MS-DOS operating system 
and system files to it and configure the 
machine to boot directly from the 
drive when you turn the power on. AH 
the instructions for formatting and 
configuring the hard drive are listed in 
an easy-to-follow form in the com- 



80 Micro, March 1985 • 31 



REVIEWS 



puter's instruction booklet. 

The booklet is easy to understand, 
and it gives you the information you 
need to get the system up and running. 
It also gives you an overview of the 
MS-DOS commands you'll use most 
often. The booklet contains only four 
chapters: Turning It On, Telling The 
DOS What To Do, Turning It Off, 
and Options. The appendixes at the 
end of the booklet augment the infor- 
mation in each chapter. 

Compatibility and Things to Watch 

Tandy claims that all PC/XT add- 
on cards fit and function in the 1200. 
During the review of the 1200, I used 
an IBM color graphics card and an 
IBM RS-232 card without a hitch. 

Tandy also promised software com- 
patibility and I found only a few pro- 
grams that didn't work on the 1200: 
Prosoft's Dotwriter and Muse Soft- 
ware's Castle Wolfenstein. 

All in all, the 1200 performed just as 
expected from both a hardware and 
software standpoint. However, you'll 
want to be aware of a few quirks in us- 
ing the system. If it doesn't respond to 
your color or monochrome monitor, 
make sure the internal DIP switches 
are firmly set. When I got my 1200, it 
was supposed to be configured for a 
color monitor. But the system didn't 
work until I put the DIP switches in 
the proper positions. 

Tandy's version of MS-DOS takes 
10K more RAM than the PC/XT op- 



Tandy 1200 
**** 



Tandy/Radio Shack 
One Tandy Center 
Fort Worth, TX 76102 
$2999 



Easy to use? ****# 
Good docs? • ••*•& 
Bug free? ****# 

Does the job? ****■£ 




Photo 2. A look inside the Tandy 1200. 



erating system, so you have less mem- 
ory available to store and manipulate 
data in spreadsheet programs. 

Some DOS commands familiar to 
XT users may not work on the 1200 
until you install ANSI.SYS with the 
operating system. ANSI.SYS is al- 
ready incorporated onto the IBM sys- 
tem, but you have to activate it on the 
Tandy 1200 before you can call com- 
mands like CLS from the DOS 
prompt. Another idiosyncracy that 
both PC-DOS and Tandy's MS-DOS 
exhibit is an inability to call MODE 
from a subdirectory unless you first 
invoke the Path command. 

The Norton Utilities disk diagnostic 
package (a Super Utility program for 
the PC family) didn't come up in color 
as it does on the XT, but the program 
worked properly except when examin- 
ing the hard disk. Since the 1200's 
hard disk is configured differently 
from the PC/XT's, version 2.0 of the 
Norton Utilities won't check it, but 
3.0 will. 

I also noted some color incompati- 
bility when I ran Infocom's interactive 
fiction games. While the games func- 
tioned properly, they apparently 
didn't recognize the 1200's color 
graphics board. As a result, the pro- 
grams didn't ask if you're using a col- 
or or monochrome monitor. 



Conclusion 

The 1200 is an affordable alterna- 
tive to the IBM PC/XT. Tandy prom- 
ises that it runs almost all PC/XT 
ware and accepts IBM option cards. 
All this for $1,400 less than the Big 
Blue machine. 

The Tandy 1200 may not make a 
big dent in the corporate market, 
which IBM dominates, but it's a quali- 
ty choice that will help Tandy reposi- 
tion itself near the front of the busi- 
ness micro market. ■ 



The 1200 HD: 

Notes from a Model 4 User 

by David A. Williams 

Why did this dedicated Model 4 
user buy an IBM clone? For 
one reason only: To enter the main- 
stream of the computer field. 

I really like the Model 4 and think it 
one of the most underrated computers 
around. But Big Blue has spoken and 
you'd have to be deaf not to hear the 
message. In fact, the company I work 
for has a variety of computers (includ- 
ing Model 4's) but, by company pol- 
icy, any new computer must be IBM- 
compatible. So, I'm trying to learn a 
new system and it's not easy. 



32 • 80 Micro, March 1985 



Circle 258 on Reader Service card. 



Now you can choose from the best books available for 

business and professional personal computer users. 

And save up to 35% and more on list prices! 



Only you can decide which books will help you get the most out of 
your computer. As a member of Prentice- Hall's Personal Computer 
Book Club, you are invited to sit in judgement of the best computer 
books being published today— computer books especially written for 
business and professional people hke you. Every four weeks you'll 
receive news of vital new books on software, hardware and creative new 
computer applications. And each title will be carefully chosen by the 
Personal Computer Book Club editorial board to meet your demand 
inq needs. As a member of the Personal Computer Book Club, you 
are never under any obligation to buy. There are no minimum pur 
chase requirements. Your satisfaction is fully guaranteed. 

Join the Personal Computer Book Club now and receive d FREE copy 
of The Computer Documentation Kit. We will also send you your first 
selection for only $1.00 (plus local sales tax, postage and handling). 
ll's Superacripeit: Micro Word Processing for the THS 80. and you have 
15 full days to decide if you want to keep it. If you aren't fully satisfied, 
you can send it back and your membership will be cancelled, no ques 
::or.s asked. In any ra?*- r The Computer Documentation Kit is yours 
to keep, just for qlvinq the Persona! Computer Book Club a try. 



Read this book without charge or obligation 
— buy |it for only $1 

SUPERSCRIPSIT: MICRO 
WORD PROCESSING FOR THE 
TRS-80 

by Caro; Lehman, Mark Lehman 
and Connie McMulhn 

JN manual puts 'Ue went pro 

• nqpoWM I SUPERSCRIPSIT at your 

! " istantly, and hulps you 10 pro 

• ■ '- w "I r tldence tl r . :r. . :' , i . 
- •• • IPERSCRIPStT application In 

■ '■• i •■•• :r id .- dn;li (or bonir ; . u 

■ • ' I I •••• I : i ' . rxjsir and 

.■:■•! •• i buwiWH applications plus 
stpp by step instructions tot merging 
selected information from th» PROFILE I!I 
PLUS Oala man. i :••■••.': i ■■ i je w:rh 

SUPERSCRIPSIT 




YOUR FREE BOOK 
The Computer 
Documentation Kit 

Here's a complete "kit" of tools that will 
simplify the vital task of documenting the running, main- 
taining and updating of your present computer system. Its 
simple, step-by-step approach helps you prepare solid 
documentation that saves time and money. . . cuts down on 
errors and delays . . . and helps your system run more effi- 
ciently. Each section of the "kit" corresponds 
to the major tasks involved: collecting data 
about the system, creating data flow 
diagrams, defining audiences and their 
needs, and producing manuals. It's packed 
with simplified worksheets, mode 
manual outlines and much more. 



Join the 



Personal Computer 
Book Club 
and get this 

book 

FREE! 



To: Prmtics Hall Persona. Computer Be 

Momrv , r«.'..r Y.r rol..T.*-:i! Center 
P.O Box 442 Wr<=- Nyark NY 10995 

FREE GIFT AND BOOK EXAMINATION COUPON 
YES:- ■,:..::.-■: i •.. |1 | ■ •:.:. , | •:.. fl .-. . .,. ... ' ■•.; :;.- r Book 

Ciub and send me imrw : id y n y FREE copy ot The Computer Documet 
ill ■: Kit. Also send me Superscripsit: Micro Worn Processing tor the 
■■■■■■• "' ■•• Lrs' ,: election. I understand that it comes to me for on!< 

$1.00 plus local sales tax, postage and handling I also understand that I 
<■■ Ul tor n i ; ition to purrhase any more books and that I may cance 

v - ~>bersh:p at any time alter I have paid lor any selections I have 
chosen. What< ■•• r I :■-■••- fa The Computer Documentation Kit is mir 
to keep FREE 

Stonstura 




Nam. 




Address 
City _ 

Oiler valid in continental United States only. Enrollment is subject to acceptance by -he Prentice Hall 
Person a. 1 Computer B<xik Club 

R0845(9) 
55-4 R7338(8) PC 102-BA(2) 



REVIEWS 



As I write this, little technical infor- 
mation is available on the 1200. Radio 
Shack store and Computer Center em- 
ployees don't know much about it, at 
least in my area. And Tandy has yet to 
publish any specifications on it. 

The 1200 is certainly a more dif- 
ficult system to buy than the Model 4, 
where all you have to do is take it 
home, plug it in, and you're off. With 
the 1200, you have to make all these 
decisions: Monochrome or color mon- 
itor? How much memory? RS-232 
port? Expansion boards? 

As if the initial decision-making 
weren't enough, a huge aftermarket of 
IBM-compatible hardware accessories 
exists. You don't even have to buy 
Tandy. You can choose from dozens 
of display adaptors, memory expan- 
sion cards, multipurpose expansion 
boards, graphics cards, and other add- 
ons available from many different 
suppliers, including mail-order dis- 
count houses. 

Tandy says it will stock third-party 
accessories, but apparently will charge 
list price for what is heavily discounted 
elsewhere. One Computer Center was 
pushing the Tecmar Captain, a multi- 
purpose memory expansion board 
with 384K of RAM, serial and parallel 
interfaces, a real-time clock, and utili- 
ty software for $795. I've seen it 
advertised for under $600 at mail- 
order houses. 

The Machine 

The first thing I noticed about the 
1200 was the statement on the carton: 
"Custom-made in the USA for Tan- 
dy." Reportedly, Tandon, the com- 
pany famous for its floppy and hard 
disk drives, makes the system unit. 
The machine looks good even though 
it's pretty heavy. And its thick-painted 
steel cabinet appears to be durable. 

The mirror image falls a bit short 
when it comes to the expansion slots, 
however: The 1200 has only five com- 
pared to the XT's eight. Three of these 
are reserved for the disk controllers 
and the monitor adapter card, which 
you have to install before you turn on 
the machine. Consequently, you may 
need multifunction expansion boards 
if you want to add many features. 
(The processor board has a socket for 
an 8087 math coprocessor chip.) 

The 1200's start-up is a little dif- 
ficult because of the hard disk initiali- 
zation, but the manual explains 



COUNTERPOINT 



There's a fine line between inex- 
pensive and cheap. At first glance, I 
thought the 1200 overstepped that 
line. My test model had gobs of 
epoxy holding the hard disk cables to 
the controller board, awkward DIP 
switches (I tried one setting that 
made everything work fine, except 
that I couldn't format floppy disks), 
and a case screwed shut so tightly 
that I needed the Jaws of Life to put 
in the display adapter. 

Since then, however, I've fallen in 
love with the 1200. It works like a 
charm, running every piece of non- 
graphics software I've tried (I use the 
basic monochrome adapter and mon- 
itor). It has such swift and spacious 
Winchester storage that I'll hate to 
give it up and go back to floppies. 

The keyboard is responsive and an 
excellent improvement on the IBM 
standard. I would gladly pick the 
economical VM-3 monitor over the 
CM-2 color display, since it has 
much sharper text. 

Most of all, Tandy's price sweeps 
away objections as it sweeps away 
competitors. While it's a crime to 
charge extra for DOS and it's sad 
that Tandy has signed a death war- 
rant on the Model 2000, the 1200 is 
simply too good a deal to pass up. 

— Eric Grevstad 

I use an IBM PC more than any 
other computer. Except for the 10 
megabyte hard drive, I don't see that 
much difference between the PC and 
the 1200. The styling and colors are 
similar, and both machines have five 
13-inch expansion slots. Since 
they're so alike, any comparison 
comes down to picking nits. 

Like most PC clones, the 1200 has 
an improved keyboard layout. You 
can reach the shift and return keys, 
and red LEDs indicate when you've 
engaged the Caps and Num Lock 
keys. The keyboard doesn't clack an- 
noyingly like the PC's but it's mush- 
ier and slower. 

Mass storage is always impressive. 
The hard drive is quick and quiet 
once you format it. But formatting 
takes an hour and the instructions 
don't always follow the actual screen 



displays. The hard drive utilities, 
specific for the non-IBM format, 
work just fine. 

Judging from a few sessions, the 
1200 is highly PC compatible. Most 
of my regular programs worked nor- 
mally: WordStar, VisiCalc, Think- 
tank, Gato. The Norton Utilities 
(highly regarded MS-DOS utilities) 
generally worked fine, except the 
hard drive utilities in version 2.0 
didn't recognize Tandy's hard disk 
format. Then new version (3.0) had 
no problems. But Sorcerer didn't 
come up in color and Castle Wolf- 
enstein quickly bombed. 

The 1200 is nice, especially con- 
sidering its price. While I don't trust 
it yet (I want to look at it some more 
and try other PC software), I think 
the 1200 will eventually prove its 
worth. 

— Dave Rowell 

My first impressions of the Tandy 
1200 were mixed. I've been using a 
Model 2000 for a year, so it seemed 
as if the 1200 were a step backward. 
But I was intrigued with its low cost. 

I found the Tandy 1200 mostly 
identical with the IBM PC/XT. The 
degree of compatibility Tandy incor- 
porated into the machine is impres- 
sive. In terms of software, the 1200 
ran as an IBM PC/XT, quite a feat 
when you consider that the IBM PC/ 
XT depends heavily on its ROM code. 

Setting up 1200's hard disk is more 
complex than on the Tandy 2000. 
The hard disk formatting and initial- 
ization routines require about an 
hour to run and you must run the 
low-level format routine twice. Then 
you have to format and partition the 
disk as the final step. 

In conclusion, I saw little differ- 
ence between the Tandy 1200 and the 
IBM PC/XT in hardware, firmware, 
or software. The most startling dif- 
ferences are those perceived by a reg- 
ular Tandy 2000 user. The difference 
in performance between the two ma- 
chines is overwhelming. While the 
2000 is in another league, Tandy will 
probably sell a lot more 1200s. 

—John B. Harrell III 



34 • 80 Micro, March 1985 



REVIEWS 



everything clearly. Even first-time 
computer users should have little trou- 
ble. Don't ignore the errata sheets be- 
cause they contain information on the 
start-up. 

A diagnostic program that checks 
the processor and memory runs every 
time you turn on the computer. A 
message on the display tells you how 
much memory you've installed. If the 
hard disk contains the DOS, it will 
boot automatically and prompt you 
for the date and time. 

The keyboard has a metal base with 
a plastic cover, and follows the general 
layout used in other PC compatibles. 
Model 4 owners may be overwhelmed 
just by the number of keys. Many of 
the symbols are in different positions 
and the Model 4 lacks several of them. 
If a PC industry standard exists, the 
1200's keyboard comes close to it. 

Tandy integrated the arrow keys on 
the keypad with the number keys in a 
diamond arrangement. You use the 
"Num Lock" key to toggle between 
the keypad's numbers or arrows. This 
key and the Caps Lock key have an il- 
luminated indicator to tell you what 
mode they're in. 

Tandy offers both monochrome 
($219) and color monitors ($549.95), 
with the necessary adapter cards ($219 
and $299, respectively). The color 
adapter provides high-resolution 
graphics when used with the mono- 
chrome monitor and adapter. 

If you do a lot of word processing 
or spreadsheet work, you'll want the 
monochrome monitor. From my own 
experience, the color monitor/adaptor 
doesn't have sufficient resolution for 
long-term use for those types of ap- 
plications. 

If you do buy the Tandy mono- 
chrome monitor, make sure it's the 
VM-3 (catalog number 25-3010). It's 
the only one compatible with the 
adapter card. It features green letters 
on a black background and a non- 
glare screen. The contrast and bright- 
ness controls are on the front panel. 
While the VM-3 can display dual in- 
tensities, it's difficult to distinguish 
between them if you set the contrast 
control too high. 

Nothing in the literature indicates 
the 1200's pixel resolution. The dis- 
play is sharper than the Model 4's, 
with the characters more delicately 
formed and the individual dots less 
noticeable. This makes for a flicker- 



free display, but data tends to smear 
when you scroll it. 

MS-DOS vs. TRSDOS 

For an extra $89.95, you get the 
MS-DOS 2.11 operating system and 
GW-Basic. My first impression is that 
MS-DOS will be easier to learn than 
TRSDOS 6.X. Redirecting the input 
and output seems more simple. For 
example, "Copy CON file name" di- 
rects output from the keyboard (con- 
sole) to a disk file while simultane- 
ously displaying it on the screen. Batch 
processing, which corresponds to the 
Model 4's job control language, is also 
easier. The DOS Print command 
automatically invokes a spooler 
without the process TRSDOS in- 
volves. 

On the other hand, there is no 
Forms/FLT, KSM/FLT, or Mem- 
disk. But with a hard disk, you don't 
really need the last. 

MS-DOS includes a line editor, but 
it seems a little awkward to use. Per- 
haps this will change with experience. I 
have yet to find one I like as well as the 
one that comes with the Model 4 As- 
sembly Language Development Sys- 
tem. There is a Debug utility that has 
some pluses and minuses compared to 
the one with TRSDOS. The Debug in- 
cludes a disassembler that can be run 
from within. 

While GW-Basic has more state- 
ments and functions than Model 4 
Basic, many of these have to do with 
graphics. And, of course, you have to 
have a graphics card to use them. Both 
a line and screen editor are provided 
within Basic for program generation 
and editing. 

Documentation 

At this point, I can only rate the 
documentation as fair. The DOS and 
Basic manuals are supplied in 9-inch, 
three-ring binders, but neither has an 
index. This is especially difficult to un- 
derstand, since other MS-DOS man- 
uals nearly identical in content and 
organization have them. I've already 
wasted a lot of time looking around 
for things. 

The overall DOS description is bet- 
ter than TRSDOS, but with fewer ex- 
amples illustrating the commands. 
There is no data that would be needed 
by Assembly-language programmers, 
but perhaps this will come. Something 
similar to the Model 4 Technical Ref- 
erence Manual is needed. 



The Bottom Line 

I like this machine and I'm looking 
forward to using it. I finally feel like 
I'm part of the real world of comput- 
ers. It's nice to read software and 
hardware reviews without feeling left 
out. While I wish I had the perfor- 
mance of the Tandy 2000, the Tandy 
1200 has the degree of compatibility I 
need.B 

CP/M 2.2 Revisited 

by John B. Hand ID 

^^ontezuma Micro has signif- 
1T JLicantly improved its version of 
CP/M since I last reviewed it (March 
1984, p. 94), particularly in terms of 
hard disk support. The new version is 
available as a $15 upgrade to previous 
Montezuma Micro CP/M owners. You 
receive Montezuma's revamped docu- 
mentation, a disk with the upgraded 
CP/M system on it, and a second disk 
with the hard disk drivers. 

New System Features 

The first surprise you notice when 
you boot up the disk is the banner. 
Jesse Bob Overholt (of The Alternate 
Source fame) has overhauled CP/M's 
Basic input/output system (BIOS), the 
operating system's nucleus. In addi- 

Caitimmionp. 113 




CP/M 2.2 version 2.2 



***•• 



Montezuma Micro 

CP/M Support Division 

P.O. Box 32027 

Dallas, TX 75232 

Model 4/4P 

64KRAM 

One disk drive (two preferred) 

Supports 128K RAM and 

hard disk drive 

$199 



Easy to use? ***** 

Good docs? ***** 

Bugfree? ***** 

Does the job? ***** 



80 Micro, March 1985 • 35 



Circle 411 on Reader Service carp 




NtONTEZUlAA 
MICRO 

PRESENTS 

MONTE'S WINDOW 



TM 



NOTEPAD 




WINDOWS ON 
YOUR MODEL 4! 



. — — 




MKL< 


joai 


"tl^^^^^Ptj^O 


MM I 
_rw*'_TM4 


.- >• .. 

>■ * ■• 

o- ;( :. 

>■ .- ■■ 

.- '. -. 
.... - . 
• . i 

V 


.'**■* 

-*> 

■•■• 


•i »:*«■ 

II UtTI 

- f.-J« 
?• li'tM 


!%4 y>n*ijH »:crc 1 


IT"? M ( 
"X H < 

■.#■»» ( 


-«■ I'M 

■ y • Mm 

!»{•• H l»»1 


.it M < 

.*» M < 
41 N ' 
441 M ! 

"V y < 

:-.m h < 


■■■ '« ^ 

.: K -. 

. .. .. 




.i «:r-* 
•< Oil 

•* irmf 






• • m* h mil 


111! "1 « 
V « < 








i V9% 


^—^^ 



CALENDAR 




TAKES NO 
USER RAM! 




calculator p op Up Menus! 



INDEX 
CARD FILE 



REQUIREMENTS 

Montezuma Micro CP/M" 
2.2 version 2.21 + 

1 28K RAM 

Model 4 or 4P 

8-bit Fever 




$49 

Easy to Use! 




A touch of the keyboard opens a window in your screen for- 
a Note Pad, an Appointment Calendar, a Calculator, even a 
Mini Data Base. All yours for just $49! Need RAM? Monte's 
Christmas gift to you - 64K and the window, both for $99! 

Once Upon A Time, 

Monte Zuma our Founder, President and King, has always had trouble keeping his desk 
organized The Sidekick 1 ' from Borland International would solve the problem, but alas, it 
was not available for CP/M* So Monte asked his favorite nephew, the legendary LaMont 
E Zuma (distant cousin to Rondo Talbot, a direct descendant of Monte Zuma hisself) to 
work on the problem as best he could during recess at the home. LaMont, a true legend in 
his own time really outdid himself this time. A touch of both shift keys halts your 
application program in its tracks and up pops Monte's Window" ready to use. What 
could be simpler? Put an end to the fumbling and pawing around the pile of papers on your 
desk You will find Monte's Window " indispensable. When you are finished, break back 
to your application program and it resumes without error. Monte's Window" is truly a 
breakthrough. See for yourself- Look through Monte's Window" on your Model 4. How 
did you ever get along without it? See the page opposite for order information. Monte s 
Window" is available right now. . 



36 • 80 Micro, March 1985 



Read*' Service card 



C P/M . . .The Software Key 
That Unlocks Your Model 4 

CP/M is the standard 8-bit Z-80 operating system and many thousands of programs have been written to run under this 
system With Montezuma Micro's CP/M you can run these programs on your Model 4/4P.Thinkabout all those nationally 
known programs you've wanted to use. Programs like WordStar dBASE II; SuperCalc; MultiPlan etc. With our version of 
CP/M 2 2 all those public domain programs on bulletin boards across the USA are available for free downloading. CP/M is 
the missing link that joins all this software to your Model 4/4F. Montezuma Micro's CP/M comes ready to use and requires 
no hardware modifications This product has been awarded the best and highest ratings in the reviews and we are 
continuously improving it with you in mind With our CP/M you get more than just a DOS. You get the other half of your 
Model 4*4P 



AVAILABLE NOW FOR IMMEDIATE SHIPMENT 



Less Hard Disk Drive Support $169 

Optional Hard Disk Drive Support $ 30 



(Radio Shack 5M. 12M. 15M. 35M • Aerocomp'P»rcom 5M. 10M. 15M. 30M • Bi-T«ch 5M, 10M. 11M. 1 5M, 20M. 30M. 40M) 



FEATURES 

• Full range of 'loppy drive support Dual-head and/or 80 
tracks 

• Optional hard disk support allows positioning and selective 
assignment of logical drives, tasy backup routine 

• Memory drive allows the use of the other 64K RAM bank 

on 1 ^8K machines. 

• Modem 7 a powerfu public domain communications 
program furnished at no charge, allows for file transfer and 
remote database access such as CompuServ and The 
Source. 

• CON*- IG is our flexible utility that allows complete control 
of all operating parameters from menus Format, read and 
wnte more than 30 different manufacturer's disk formats 
w th more being added rapidly. 

• Disk Utihty Program shows fast format, backups and 
verifying of ours and other manufacturer's disks 

• Tnese CP/M utilit.es are included: ASM. DDT. DUMP. ED. 
LOAD: MOVECPM. PIP. STAT. SUBMIT. SYSGEN; and 
XSUB. 



WHY BUY OURS? 



Transient Program Area TPAi 
Bytes free in MBASIC 
Bytes free of formatted disk 
64K Memory drive 
Double Side/80tk drive support 
Formal read/write other 
CPi M to'mats 

Communication program included 
Share HD with TRSDOS.'LDOS 
Assign multiple drives lo HD 
Boots from Hard Disk i4Pi 
Popular terminal emulation 
User defined function Keys 
Timely prodjot support 



MONTEZUMA RADIO 



MICRO 
55K 

30.776 
196K 
YES 
YES 

YES 
YES 
YES 
YES 
YES 
YES 

9 
YES 



SHACK 

52K 

18.488 

160K 

NO 

NO 

NO 
NO 
NO 
NO 
NO 
NO 
3 
NO 



128K MEMORY UPGRADE 

Our upgrade kit includes 64K RAM, a geniune PAL chip and instructions 
for installation. This kit will upgrade your 64K Model 4 lo 128K and 
allow the use of our MEMLINK program and the TRSDOS 6.x 
MEMDISK. Guaranteed 1 year, 

A BARGAIN AT ONLY $74 Model 4 
S64 Model 4P - No PAL 



This popular software is available for the Model 4/4P 
using our CP/M 

WordStar Fast memory-mapped version 3.3 $250 

MailMerge Multi-purpose file merging program ... 125 
SpellStar 20,000 word proof-reader on a stick .... 125 
Starlndex Creates indices and Tables of Content. . . 85 

DataStar Data entry and retrieval is yours 175 

ReportStar Report generator and file manipulator 150 

InfoStar The above two programs 300 

dBASE II with Disk Tutorial 385 

CBASIC version 2.8 85 

TURBO PASCAL by Borland. This is the one 45 



ORDER INFORMATION 

Call now and your order will De shipped immediately We accept 
American E xpress. MasterCard and Visa plus we ship COD (cash or 
cashier's check oniyi Credit cards are not charged until your order is 
shipped Add $4 shipping per item on orders within the 48 states 
Suitabilt 1 , .:' the scMtv.a'e is t-iR response i'v of the purchasei as 
there are NO REFUNDS. Defective items will be replaced upon their 
'•r.Lr'- ::ost;:.H .1 



ORDER NOW TOLL FREE 

800-527-0347 
800-442-1310 

The ToH Free lines are tor orders only 
Specifications subject to change without notice 



CP/M is a trademark ot Digital Research irtc inte/cftange and Merr*<* are Trademarks ol Mor-ejru^a M<ro TRS-80 s a Trademark i ' r* 'and> Owporatiori WordSis' Va«M>*qp SoenStarl 
Stlf1n0»». InfoStJf RtportStSJ UdtaStar SuperSct and CaicSiar are Trademarks o' McroPro Internationa) CorpOM'-on MuftpUr s a l-aOemar> jt Microsoft 




NwONTEZUNA 
MICRO 



214 330-5)04 

R«*wr1 Airport Hangar m | P 
P O Bo» 3?0? 7 



'WE KEEP YOU RUNNING 




80 Micro, March 198b • 37 



That 




inking 
i Feelin g 



^ ew things bring out a com- 
puter user's latent hostility like 
*^^ a disk error message. It's irri- 
tating enough that you can't complete 
your operation, but to add insult to in- 
jury, you'll often find the message 
incomprehensible; you're still left won- 
dering what went wrong. 

This article will help you make sense 
out of cryptic error messages like 
"GAT read error" and "CRC error 
during disk I/O." It'll also outline ways 
to repair disks and prevent disk errors. 
First, however, you need to know some- 
thing about a floppy disk's structure. 

The Disk Dissected 

While it might appear that the only 
thing recorded on a floppy disk is the 
data you write to it, your disk operating 
system (DOS) formats disks with a boot 
sector, a directory of your files, and 
other information to guide the disk's 
controller hardware. 

Most TRS-80 operating systems for- 
mat disks with 40 tracks of data, each 
track consisting of 18 256-byte sectors. 

The boot sector is the disk's first sec- 
tor; the computer reads this sector first 
when you boot up the disk. On a system 
disk, the program contained in this sec- 
tor bootstraps, that is, it loads the re- 
mainder of the DOS into RAM. On a 
nonsystem disk, the boot program dis- 
plays an error message, indicating that 
the disk lacks a DOS to bootstrap. 

Usually, the DOS devotes an entire 
track to the disk's directory, which tells 
the DOS where to locate your files. 

38 • 80 Micro, March 1985 



But each track on a disk contains 
more than just data. Your disk con- 
troller hardware requires additional in- 
formation so that it can locate each sec- 
tor on a track and verify that the DOS 
has read the data contents of that sector 
correctly. 

The small hole near the disk's center 
is called the index marker. It enables the 
disk controller to find the beginning of 
each track. From there, the controller 
uses data stored on the track to locate 
each of the track's 18 sectors. Your 
DOS writes this data to a disk during 
formatting. 

Each disk sector has four parts: a 
type III gap, an identification (ID) field, 
a type II gap, and a data field (see the 
Fig.). The type III gap separates the ID 
field from the previous sector's data 
field, and the type II gap separates the 
ID field from the next data field. 

The ID field contains all the identify- 
ing data for the sector. Its first byte, 
called the ID address mark, tells the 
disk controller that an ID follows. The 
second, third, and fourth bytes contain 
the disk track number, side number (for 
double-sided disks), and sector number. 
The fifth byte contains a code that de- 
termines the sector's length. 

The ID field's sixth and seventh bytes 
contain its CRC, or cyclic redundancy 
check, characters (I'll explain CRCs a 
little later). 

The data field is the part of the sector 
you're most familiar with. Its first byte, 
called the data address mark, tells the 
controller that data follows. The next 



256 bytes contain data, and two CRC 
characters follow the data. 

TRSDOS 1.3 numbers sectors from 
1-18, but it increments the numbers by 
3. Therefore, consecutive sectors are 
numbered 1, 4, 7, and so on up to 18. 
Sector 2 follows sector 16; sector 3 fol- 
lows sector 17. This gives the software 
enough time to access the next-higher- 
numbered sector before the disk has 
revolved past it. 

TRSDOS 6.1 carries this further by 
numbering sectors in increments of 6, 
starting with zero and ending at 17 on 
track zero. For each successive track, 
the starting sector's number changes, so 
that identically numbered sectors aren't 
adjacent. This provides better perfor- 
mance, but it means that TRSDOS 
1.3-formatted disks aren't compatible 
with TRSDOS 6.1 disks. 

Seeing for Yourself 

To see exactly what TRSDOS 1.3 
writes to a track during the formatting 
process, try the following patch: 

PATCH *7 (ADD = 5CF3.FIND = 3E.CHG = FT) 

Then format a blank disk in drive 1. 
After you enter the disk's name and 
password, the patch puts you in Debug. 
The DOS will write the contents of 
memory locations 6200-7D61 hexadeci- 
mal (hex) to the disk's first track. Loca- 
tions 6100-61FF hex contain the gran- 
ule allocation table (GAT) sector, and 
locations 5FOO-5FFF hex contain the 
hash index table (HIT) sector. 



TRACK FORMAT 



GAP 
II 



DATA 
FIELD 



GAP III 
33 BYTES 




ID 

ADDRESS 

MARK 


TRACK 
NUMBER 


SIDE 
NUMBER 


SECTOR 
NUMBER 


SECTOR 
LENGTH 


CRC 

1 


CRC 
2 



Figure. Disk format under TRSDOS 6, 1. 



Once you've displayed these loca- 
tions, make sure you use the Q com- 
mand to exit Debug without continuing 
the format. Reverse the patch to restore 
the format command: 

PATCH *7 (ADD = 5CF3.FIND = F7.CHG = 3E) 

To do the same thing under TRSDOS 
6.1, format a blank disk, and when for- 
matting is complete, enter Debug with 
the Debug (EXT) command. You can 
use the D command to display memory. 
Memory locations 2F00-4745 hex hold 
the contents of the last track written. 

The CRC Factor 

A cyclic redundancy check verifies 
that the data the DOS reads from a disk 
is the same as the data recorded in the 
first place. Each time the computer 
writes an ID field or sector of data, the 
disk controller computes a CRC using a 
complex algorithm. The CRC calcula- 
tion includes every byte of data from 
the address mark up to, but not includ- 
ing, the CRC itself. 

When the DOS reads a sector of data, 
the controller again computes the CRC 
and compares it to the CRC stored on 
the disk. If the two values don't match, 
the controller sets an error bit in its 
status register, which the disk in- 

40 • 80 Micro, March 1985 



put/output (I/O) software checks. The 
algorithm is accurate enough to detect 
almost all errors. 

Error Messages Decoded 

Since TRSDOS 1.3 and 6.1 have dif- 
ferent error messages, I'll deal with 
TRSDOS 6.1's messages and describe 
the corresponding messages for TRS- 
DOS 1.3. Other standard DOS mes- 
sages might differ slightly, but they will 
essentially mean the same thing. 
• Seek error during read. The disk con- 
troller seeks a track by positioning the 
read/write head at that track. The con- 
troller reads the first ID field it finds on 
the track. If the ID field's track number 
isn't that of the track the controller is 
seeking, and the ID field's CRC is cor- 
rect, the controller sets a status bit indi- 
cating a seek error. If the CRC is bad, 
the controller keeps trying to find an ID 
field with a good CRC. If it finds none 
within four drive revolutions, it sets a 
CRC error status. 

Seek errors usually mean that the disk 
drive hardware has malfunctioned. 
However, if the disk has a bad track with 
no valid ID fields, a seek error can also 
occur. To determine which problem is 
causing the error, try another disk. If the 
seek error persists, your drive needs re- 
alignment or other repairs. 



TRSDOS 1.3 has no specific seek er- 
ror. Under the circumstances described 
above, it would probably display the 
message "Disk drive hardware fault." 

• Lost data during read. TRS-80 hard- 
ware and software use what's called 
programmed data transfer; the CPU 
must perform an I/O instruction to 
read or write each byte of data from 
disk. Since the disk revolves at a con- 
stant speed, the CPU must read or write 
each byte as soon as the controller re- 
quests it. If the byte isn't transferred be- 
fore the next one becomes available, the 
controller sets a lost data status bit and 
terminates the I/O operation. 

Lost data errors probably mean the 
disk is defective or the drive isn't turn- 
ing at the right speed. If the error per- 
sists when you try another disk, it's time 
for drive maintenance. 

TRSDOS 1.3 doesn't differentiate 
between lost data errors on reads and 
writes. In both cases its message is 
"Lost data during disk I/O." 

• Parity error during read means a 
CRC error occurred while the DOS was 
reading a sector. The CRC error is in 
the data field, not the ID field. 

CRC errors usually occur because 
data was read or written incorrectly. 
Occasionally, the CRC characters 
themselves can be incorrectly stored, 
also causing a CRC error. 

TRSDOS 1.3 doesn't distinguish be- 
tween CRC errors during data reads and 
writes; its corresponding error message is 
"CRC error during disk I/O." 

• Parity error during header read indi- 
cates that a CRC error occurred while 
the controller was reading an ID field, 
trying to find the correct sector, rather 
than while it was reading a data field. 

TRSDOS 1.3 displays the same error 
message it does for data field CRC er- 
rors, but uses a different error number. 

• Dai a record not found during write. 
Before the DOS can read a specific sector 
of data from disk, it must inform the 
controller. The controller tries to locate 
the correct sector by reading the next ID 
field and comparing its track and sector 
numbers with those that the DOS re- 
quested. If it doesn't find a sector with 
the correct numbers within four disk 
revolutions, the controller sets the rec- 
ord-not-found status and terminates the 
operation. 



System Requirements 



Model IH or 4 
One disk drive 



These errors usually mean the disk's 
ID field is bad. 

The equivalent TRSDOS 1.3 message 
is "Disk sector not found." 

• Seek error during write is the same as 
"Seek error during read," except that the 
error occurred before a write operation. 

• Lost data during write corresponds to 
"Lost data during read," but for a 
write. 

• Parity error during write means a 
CRC error occurred while the DOS was 
writing a sector to disk. 

• Data record not found during read. 
Since the DOS writes the ID fields when 
it formats a disk, this error can occur 
for the same reasons as during a read. 

• Write fault on disk drive tells you the 
controller has detected some kind of er- 
ror while writing to disk. This indicates 
a hardware malfunction in the drive or 
the controller. 

The corresponding TRSDOS 1.3 
message is, "Write fault on disk I/O." 

• Directory read error, Directory write 
error. These messages indicate that an 
error has occurred during I/O to the di- 
rectory track. Try another disk to deter- 
mine if the problem is in your hardware 
or the disk. 

TRSDOS 1 .3 uses the same messages. 
%GAT read error, GAT write error 
mean an error has occurred during I/O 
to the granule allocation table, a special 
sector on the directory track containing 
information about the disk's sector 
allocation. The DOS uses the GAT to 
determine which sectors are available 
for a new disk file or for an extension to 
an existing file. 

Both DOSes use the same messages. 

• HIT reed error, HIT write error in- 
dicate the disk controller detected an 
I/O error while reading or writing to the 
hash index table. This is another special 
sector on the directory track containing 
a 1-byte hash code representing each 
disk file's name. The DOS uses the HIT 
to locate a file's directory record, which 
is on another sector of the directory 
track. 

Again, both DOSes use the same 
message for this error. 

Other Error Messages 

You've probably encountered other 
error messages during disk I/O. Most of 
them, such as "Illegal logical file 
number" or "Attempt to read past 
EOF' result from bugs in your program. 

In a few cases, hardware may be at 
fault. For example, if you get an illegal 
drive number message when you try to 
access a disk under TRSDOS 6.1 and 
you're certain the drive contains a valid 
disk, something's wrong with your con- 




troller or the drive. If TRSDOS 1.3 dis- 
plays a "Disk drive not ready" message 
for no obvious reason, you probably 
have hardware problems. 

Now What? 

Once you know how to interpret your 
DOS's disk error messages, you can 
start troubleshooting. The first thing to 
do is determine whether the disk or your 
hardware is faulty. 

Retry the operation on another 
disk — I always keep a couple of blank 
formatted disks on hand for such occa- 
sions. If the problem recurs, it's time to 
take your system to the repair shop. If 
the operation works without error, you 
have a bad disk. 

Don't think yod have to junk a disk 
because it's generating error messages. 
If you haven't already done so, buy a 
good disk utility program. Powersoft's 
Super Utility is one of the best; I'll go 
into its capabilities in some detail to 
demonstrate what you can do to repair 
a disk. 

I'll discuss Super Utility 4/4P, which 
runs only on the Model 4/4P but can 
access most Model I or Model III disks. 
All the utilities I'll mention are also 
available in Super Utility Plus 3.2, 
which runs on the Models I and III, and 
on the Model 4 in Model III mode. 



Repairing the Damage 

Although Super Utility comprises 
dozens of utilities, I'll concentrate on 
those that help you diagnose and repair 
disk problems. The utilities are divided 
into seven groups: zap, purge, disk for- 
mat, back-up, repair, memory, and file 
utilities. 

• Zap utilities let you examine and alter 
a disk's contents by directly addressing 
the disk by track and sector. The Verify 
Sectors and Display Sectors options val- 
idate and display the data on any num- 
ber of sectors. They're useful for find- 
ing exactly which sectors will cause 
errors, and identifying those errors. 

The Copy Sectors option lets you 
copy a sector from one disk to another, 
meaning you can replace a bad sector 
with good data from another disk. The 
Read ID Address Marks option lets you 
quickly find errors in sector headers. 
% Purge utilities are mainly for cleaning 
up disks, letting you remove files in a 
variety of ways and remove file pass- 
words or system files. 

• Disk format utilities include the For- 
mat Without Erase option, which lets 
you format a disk without losing data. 
Super Utility does this by reading the 
sectors on each track into memory be- 
fore formatting them, then writing the 
sectors once it has formatted the track. 

80 Micro, March 1985 • 41 




With this option you can sometimes 
recover data on a disk that gives 
periodic errors. 

% Back-up utilities include a standard 
back-up function similar to the DOS's, 
and a special backup for disks with 
damaged formatting information. 
• Repair utilities help you restore dam- 
aged disks. Since the Boot, GAT, and 
HIT sectors are accessed more than 
other sectors, they're the most suscepti- 
ble to damage. As they're also the most 
important sectors, along with the direc- 
tory, Super Utility provides utilities to 
repair each of these sectors. 

The GAT repair option lets you 
repair the granule allocation table itself 
or the whole sector, which also contains 
the disk's name, password, creation 
date, and Auto command. Super Utility 
repairs the GAT by going through the 
directory to determine which granules 
are really in use. 

The HIT repair option lets you recon- 
struct the entire HIT table. You can 
verify the GAT and HIT with the Check 
Directory option, which does a com- 
plete check of the disk's directory and 
lets you automatically correct any errors 
or inconsistencies it finds. 

The Boot Sector option replaces the 
Boot sector on TRSDOS 2.3, 1.3, and 
2.7 double density system disks only. 
For other DOSes, you have to use the 
Copy Sectors option in the zap package. 
% Memory utilities let you examine and 
alter your system's memory; you can 
also search for a specific string of bytes 

42 • 80 Micro, March 1985 



or characters in memory, read or write a 
byte to any I/O port, and read an entire 
track from disk into memory in order to 
examine it. 

This last option lets you see exactly 
what's recorded on a disk. It reads and 
displays all the information on the 
track, including index fields, CRC char- 
acters, gaps, and address marks. If you 
don't change any of the track's format- 
ting information you can even write the 
track back to disk using the format 
utilities' Write Format Track option. 
9 File Utilities are similar to zap 
utilities, except they're for files rather 
than disk sectors. Super Utility uses the 
directory information to find files, so 
you don't have to locate files yourself. 
You can display file sectors, copy files, 
display free space, and display file loca- 
tions, among other things. The Sector 
Allocation option determines which file 
a particular sector belongs to. 

The Disk Allocation option displays 
a map of the disk with information 
about each sector, whether or not it's in 
use, and whether or not it's locked out 
due to errors. This option corresponds 
to the standard DOS Free command. 
One option lets you compute any file 
name's hash code, another encodes and 
decodes passwords. 

An Ounce of Prevention 

Disk errors are no fun. They can cost 
you hours or even days of hard work. 
You can save yourself trouble by treat- 
ing your disks with tender care. Don't 



bend, staple, or paper-clip them; keep 
drinks away from them; don't expose 
them to electromagnetic fields (such as 
electric motors), and don't touch the ex- 
posed parts. Disks are extremely 
vulnerable to smoke and dust contami- 
nation — if they weren't, they probably 
wouldn't need CRC's. 

Invest in some hard plastic disk cases. 
And above all, buy high-quality disks. If 
your system has double-density drives, 
don't buy single-density disks, even if 
your best friend does it all the time. The 
same holds true for double-sided drives: 
Buy disks rated for double-sided opera- 
tion. Often, manufacturers test only one 
side of a single-sided disk for errors. 

Give your drives the same considera- 
tion as your disks. If you don't have a 
disk drive cleaning kit, get one. Clean 
your drives once every month or two; 
cleaning too frequently can result in 
premature head wear. 

If you want to know exactly how your 
drives are performing, buy a disk drive 
diagnostic utility. Simpler programs 
measure only your drive's rotational 
speed, while the really sophisticated ones 
can also check head alignment and index 
hole detector adjustment. 

Further Reading 

If you're interested in how your 
system's disk hardware works, see 
Radio Shack's Model III or Model 4 
technical reference manual. Both mod- 
els use Western Digital's WD 1793-01 
floppy disk controller chip. Western 
Digital's "WD179X-01 Floppy Disk 
Formatter/Controller Family" specifi- 
cation sheet contains more specific in- 
formation on the controller's function 
than the technical manuals. Inside 
Super Utility Plus 3.0/3.2 by Paul 
Wiener and Gary Camp, and Super 
Utility + Tech Manual by Kim Watt, 
both available from Powersoft, are also 
excellent sources of information. ■ 



Douglas Payne works in the comput- 
ing services department of the Universi- 
ty of Waterloo. You can contact him at 
58 Brendawood Crescent, Waterloo, 
Ontario N2J 4J5, Canada. 



Related Articles 

Hart, WD. "Docs FORMAT Get Your 
BACKUP?," January 1982, p. 217. Patch the Model I 
back-up utility so you can use g&tched disks. 
Meyer, Vincent E. "Drive Ways," September 1984, p. 
43. Disk drive repair and preventive maintenance. 



Circle 85 on Reader Service card 



Circle 306 on Reader Service card. 



< oxvi; IM MO» 111 HASH 
MOD 4 llttll'C TAMIl 2000 

If you own a TRS-80 Mod III and have resisted upgrading to the 
TRS-80 Mod 4, IBM PC. or Tandy 2000 because your software 
would not be compatible, good news has finally arrived EMSI 
verful utilities lor converting your Mod III BASIC 
programs to run on any ot these new machines. 
The programs are menu driven, very easy to use and automatically 
translate 95% or more of even your largest BASIC programs in 
lust a tew minutes. They insert all required spaces between 
keywords, recalculate PRINT 5 addresses (or replace them with 
LC I -TEsi. adjust TAB addresses, correct exponentiation symbols. 
eliminate unnecessary spaces remove down arrows, optionally 
nove REM s and flag and list unresolved line numbers. User 
guides explain program operation in complete detail, offer 
ea for revising lines that need manual intervention and 
numerous hints for easier, more thorough conversions 

CONV3T04 Converts TRS80 Mod III BASIC to $ 49.95 

IBS 80 Mud 4 



• • • • . . 

NEW- Convert* TRS BO Mod III BASIC 
to IBM PC" 



CONV3TOPC 
CONV3TO2000 



NFW! Converts TRS «0 Mod III BASIC 
to Tjr.dy 20O0" 



S1 39.95 
$139.95 



nvement diskette <ormatter and tile transfer program so that 
orograms and tiles may be exchanged between machines without modems 
Diskettes and guides are packaged m deluxe three ring binders User Guides 
available s»'; I • ' ; i details before ordt ii | 

re iiacKage ISSOO cash or MO only, credited to subsequent pachaqe order) 

TO ORDER. CALL NOW - TOLL FREE (Except NJ) 
800922-0786 

NJ residents, and local dealers: 201-879-5982 

EDUCATIONAL MICRO SYSTEMS, Inc. 

^^^ PO. Box 47V Chester. New J*i •• I 

.^a, ..•..•-. JQUIRIES INVITED G& 1 

Termt: VISA. Mastercard MO check, or COO Orders shipped within 24 

hrs Add S3 00 shipping/handling. Add Si 65 for COD Foreign or first class. 

. . postage (package wt 2 1/4 lbs > NJ residents add 6% sales tax 



Circle 208 on Reader Service card 



TRS-80 MODEL IU/4 
SOFTWARE 




Accounts Receivable 



Vehicle Program 



• Invoice Aging 
•NEBS statements 

• Monthly cash jour- 
nal tracks credit card 
discounts 



$99.95 



• Tracks Driver Miles 
' Repair & Mainte- 
nance Reports 

* Computes vehicle 
performance statis- 
tics 

$99.95 

Great customer support! Hard disk and 

floppy versions available Programs run on 

DOSPIus 3.5 at $69.95 

Phone Orders: (305) 475-0708 

Dunn Write Software Corporation 

1222 North University Drive _. 

Fort Lauderdale, Florida 33322 » 



PowerSCRIPT 4.2 

The state-of-the art UNIVERSAL add-on 

enhancement for SCRIPSIT" users! 

Now supports TRUE Model 4/4P 

80 column version of SCRIPSIT 

Supports ALL released versions of 

SCRIPSIT" for 4/III/I. 

Get the MOST from your printer! 

Our PowerSCRIPT modification for SCRIPSIT (all versions) gives you 
everytfiing that SuperSCRIPSIT does, except for proportional print- 
ing. Put we give features that even SS doesn't have! Our files are full 
;:f n'tturs Km enthusiastic use's who cannot oelieve h ;w powerful 
tittle oie SCRIPSIT can Become with PowerSCRIPT'(and this version 
adds even more leatures!) 

With an the smarter printers out there, it doesn t make sense to use 
a "dumb wore processor anymore. It you notice, there are MANY 
word processors out there besides the ones available from TANDY 
We could recommend every one ot them. IF YOU WANTED TO BUY 
SOMETHING NEW' What if you don't want to popanother S200 bucks 
for another program^ What f you don t NEED another program, but 
you d like a LOT of new features without releaming a WHOLE NEW 
SYSTEM? SCRIPSIT Ii a VERY good program - we |ust give it some 
horsepower and bring it up to today s standards' PowerSCRIPT 
gives you MANY new features, while retaining the commands you 
already know - at a very low price' All your previous files will, of 
course be comoatibie. 
Some features that get added to SCRIPSIT via PowerSCRIPT 4 2 

• Send commands to printer to activate special formats and functions, even 
embedded m me middle of the imef 

• Get an ALPHABETICAL Directory from *ithm PSCRlPT and FETCH KILL, or 
CHAIN, any tile right from trie display' No more going back to DOS' 

• Keyboard can be customized tor special needs or keys 

• Special characters can be generated from Keyboard without using special 
printer codes! 

• Removes protection tor your own use 

■ Any code from 1 through 255 can ce sent to printer through special format 
hne 

• .' dec f, AGE FORWARD OR REVERSE at a key-stroke' 

• Multiple files can be CHAINED together at print time 1 

• Will not crash programs protected in HIGH MEMORY 

• END returns to DOS READY quickly instead of rebooting operating system 

■ Built-m HELP command' HELP car be mooted by UMi 

■ Optionally select line feed after carriage return 

• Support for user-definable filters included 

For Model 4/4P ill, or I (lower case only ) Works with most Model I 'III operating 
systems or TRSDOS 6 0-6 2 on the Mod 4 Will work OK witn TRSDOS 2 7DD 
encept for DIR from PSCRlPT Purchaser must own appropriate version of disk 

bawd scripsit 

PowerSCRIPT 4.2 Still only $39.95 

SuperSCRIPSIT Users... 
We didn't leave YOU out! 

Now you can use SuperSCRIPT on your NON-Tandy printer' Your 
printer wi'i work, great using our special Printer Drivers customized 
for your particular printer and SuperSCRIPSIT. Low priced too. so 
don't miss out if you nave one of the printer models listed' Model 4 
fully supported' 
•EPSON MX-80'100 series 
•EPSON FX.RX 80, 100 series 
•Most all EPSON ' compatibles 
•Okidata 92^93 Dot Matrix 
•C Itoh 8510 Prownler 
•C Itoh A 10-20 Daisy 
•C Itoh F-10 Starwnter 

All features of SuperSCRIPSIT are supported to the fullest capabili- 
ties of the printer. Easy to install at OPEN DOCUMENT screen easy 
to use. and no extra commands to learn! 

PowerDRIVER-Only 29.95 ea. 

PLEASE SPECIFY PRINTER TYPE! 




17060 Dallas Parkway. Suite 114 
Dallas. TX 75248 

(214)733-4475 



*& 



80 Micro, March 1985 • 43 




x_ 



Grade-A 
Graphics 

This grand prize-winning graphics editor 
lets you create a design on your screen 
and combine it with different backgrounds, 
produce a mirror image of it, rotate it, 
display it in reverse video, and more. 



No matter what you want to do with Model 
III graphics, chances are you can do it 
with Graph. This full-screen graphics editor has a 
battery of commands that let you draw lines and cir- 
cles; mix different backgrounds into a single design; ■ 
create mirror-image, upside-down, or rotated dis- 
plays; and switch the video from standard format to 
reverse video and back. You can store part of a screen 
and redisplay it anywhere you want. A temporary' file 
automatically saves and updates screens in progress 
for easy recovery. In addition, you can print graphics 
in a variety of sizes and shapes on Lpson or Radio 
Shack printers or store screens on disk for inclusion 
in Basic or machine-language programs. 

Program Notes 

The machine-language program Graph performs 
most of the graphics functions (see Program Listing 
1, p. 50). Three Basic programs handle special func- 
tions: UTIL1/BAS (Program Listing 2, p. 83) draws 
circles, UTIL2/BAS (Program Listing 3, p. 83) dis- 
plays a list of commands, and UTIL 3/BAS (Pro- 
gram Listing 4, p. 84) handles rotation and explosion 
effects. The machine-language programs Load/UTL 
(Program Listing 5, p. 85) and Save/UTL (Program 
Listing 6, p. 85) provide the interface between Graph 
and the Basic programs. A separate machine-lan- 
guage program, Display (Program Listing 1, p. 85), 
lets you view graphics from DOS level. 

Once you assemble the programs and save them to 
disk, all you have to do is run Graph/CMD; this con- 
trols the whole package, calling the other routines or 
utilities as needed. When you run Graph, it displays a 
logo, then a clear white screen. 

Image-Building 

The arrow keys control drawing direction; the cur- 
sor, like a pencil point, marks your position on the 
screen. To move diagonally, combine two keys; for 
example, pressing the up- and the right-arrow keys 
moves the cursor northeast. To speed up the cursor, 
press the 1 key repeatedly until the cursor attains the 
speed you want. Pressing the 2 key slows down cursor 
movement. The cursor wraps around the screen; if 




n 



you move off the screen to the left, it reappears on the 
extreme right. 

The M key selects a drawing mode, toggling be- 
tween black and white pixels. For nondestructive cur- 
sor movement, press K. If you press K a second time, 
the cursor reverses each pixel it moves over; black 
pixels become white and vice versa. 

To clear a screen to black, press C. Pressing W 
clears a screen to all-white. Pressing N reverses all 
video on the screen — Fig. 1 shows the Graph logo, Fig. 
2 shows the same screen in reverse. 

With the K option invoked for non-destructive cur- 
sor movement, you can make precise corrections. 
Place the cursor over the pixel you want to change and 
press the space bar; Graph reverses the pixel from 
white to black or from black to white. 

For a gray or checkerboard background, press Q; 
doing so lights every other pixel on the screen. Press- 
ing H or V creates a background of horizontal or ver- 
tical lines. H and V disrupt the display considerably; 
if you've put much work into a screen, its best to save 
it before invoking them. While Q, H, and V don't 
erase the display, the random background command, 
R, does. It fills the screen with random graphics 
blocks. 

To turn a screen display upside-down, press U. 
Press B for a backward or mirror-image display (see 
Fig. 3). 

Graph draws lines automatically if you want it to. 
Position the cursor where you want the line to begin 
and press the comma key. Then move the cursor to 
the line's end point and press the period key, fol- 
lowed by B for a black line or W for white. 

When you lose the cursor or want to abort a func- 
tion, press the break key and Graph will return the 
previous screen. If the program isn't handling a func- 
tion when you press the break key, the display starts 
to disintegrate; to restore it, press break again. Other- 
wise, Graph returns to DOS. 



Michael Leibow's graphics program won grand 
prize in 80 Micro's 1984 Young Programmer's 
contest (see February 1984, p. 48) 



^hfcV 






\ 



k 



80 Micro, March 1985 • 45 




Figure 1. Graph logo. 






Figure 4. Display options of shift key function. 





Figure 7. Printout using pixel size 3,6. 




> 1 1 1 1 ii 1 1 1 1 1 1 1 ■ ■ 

\iiiiiiiiniiiiur 
IJIIIIIHIM ■ 

iiiiiir 



Figure 8. Printout using pixel size 1,4. 



Saving Your Screens 

Graph's file-handling features let you 
work on several screens at a time, or use 
parts of one screen in another display. 
In addition to files saved on disk, Graph 
maintains two files in memory, in what 
I call temporary and permanent files. 
The temporary file stores your display 
before you call an ancillary program 
function; Graph updates this file fre- 
quently, so you can restore a screen lost 
through a mistake. To load the tempo- 
rary file, type in LT. 

To save a screen to the permanent 
file, press S. Each time you type in S, 
Graph stores the new screen in its per- 
manent file without the possibility of 
data loss. You can load the permanent 
file by typing in LP; you can move back 
and forth between a screen and the per- 
manent file by pressing E. 

If you make a mistake and want to 
recover the original screen by typing in 
LT, it's a good idea to save your current 
screen first. That way, if the temporary 
file doesn't have your screen, you won't 
lose everything. 

Graph also supports four disk func- 
tions. To save a file to disk, type in DS; 
to load a file from disk, type in DL. The 
cursor will flash until you type in a file 
name of eight or fewer characters with 
no extension. When you press the enter 
key, Graph reads from or writes to disk. 

Typing in DC displays a catalogue of 
Graph-created files saved to disk. You 
can use the arrow keys to position the 
flashing cursor over a file name, then 
press the enter key to display that file. 
To return to the drawing mode, press 
the break key. To recall the previous 
display, type in LT. 

Once you've executed DC, you can 
recall the catalog without accessing the 
disk by typing in DO. 

You can also load from or save to 
tape. Have the tape running and type in 
TS or TL. Don't press the break key 
during tape operation; the program will 
bomb. 

The Display program lets you view 
graphics without invoking the main 
Graph program; from DOS level, type 
in DISPLAY FILE NAME. 

Continued on p. 50 



System Requirements 



Model m 
48KRAM 
Disk Basic 
TRSDOS1.3 



LOAPK> 



46 • 80 Micro, March 1985 



Circle 374 on Reader Service card 



PRINTER DRIVERS 
FOR SUPERSCRIPSIT 

■ 
. - 

■ •« ttupportrd on MM* pi 

■'14, • it* I 

ftwt-r 1/U r|if»»rw« printer* Bujkport***. 
2-1/7 ynarn riper. *nr*. luntovr mmppo r X. 



TIME-SAVERS 

TANDY 1000, 1200 

TANDY 2000 

IBM PC 

IMPROVE PERFORMANCE & FLEXIBILITY 
OF YOUR PC APPLICATIONS 



Use Memory as Superfast Disk Ht 



Appears ro programs 

" 



ffamm 



Directory / File / Backup Tools s« 

1 Olsptay afphaheilied 5-column d'reclofv M 

at a glar<:e C* t £j: 
!f.rxltlr -am* and (Mclay all 

3 Omrfory Bw 'r tree •'uflu'ebeloi* en, name in •«■«•» 



User Tool Assortment 

I Oelme j njmnuiM ae one it, ■/**« M - M typn; ir« Mow aa 

.• Count emM on filei D ■■:-** Mum 
J Oump tilts rn Hsm anil cha/aflai 
4 Change ownersnip t aitntniiet or Me*. •'.-. 



Attach a Serial Printer w> 



■ 



ALPS 



23 Angus Road 
Warren New Jersey 07060 

201-647-7230 



Circle 462 on Reader Service card 

mnmm 



l" , .l.W!IJ-lJl l A | J«l l JJJ 



Now you ran eliminate the strobe, flicker and 
fatigue from your computer terminal with a new 
amber Soft- View™ replacement CRT from ■ 

Langley-St. Clair 

Available for the TRS^O, TeleVldeo. Kaypro. " 

Heath. DEC. Zenith. IBM PC. Apple III and a wide 
variety of other monitors These new replacement 
display tubes use amber phosphors which exceed < 

the European standards for persistence and color. 
And the "decay" or fade-out rate of the phosphor 
is the same as the "refresh" or scanning rate of the 
computer screen, so the display glows gently, rath- 
er than flickering like a strobe light — an annoying 
problem with Inexpensive green phosphor tubes. ■■ ' 



ropean 
ope), 
regnated glass 



Available In medium decay European 
Phosphor |the standard in Europe). 
Made with Lead/Strontium Impregnated i 
that stops X-ray emission. 
High-contrast double dark face glass that also 
cuts U.V. radiation. 
Face of tube Is etched to stop glare. 
Easily Installed... comes with Demounted 
hardware. 

Ideal for word processing and programming, yet 
fast enough for games and grapnics. 
Warranted for one full year against manufac- 
turing defects or tube failure. 
Comes with a 30 day money back guarantee. 




PUT A WORLD-CLASS PICTURE TUBE 
IN VOUP TERMINAL OR COMPUTES 
AND ELIMINATE THE STROBE . 
FLICKER. AND EVE FATIGUE - H I TM 
A NEW Soft-View REPLACEMENT CRT 

FROM LANOLEV-ST CLAIR 
•VSWyVWVV.V%^%Wb%^%S%r%%W^ 



Call now to order your Soft-View"'' CRT 
from Langley-St. Clair— $99.95* 

800 221-7070 

In New Ybrtc call 212 9894676 
Pleme ipecify computer and mod* number when ordering. Dealer Inqutrt 



•%Lansley-St.Clair 

Instrumentation Systems. Inc 
13? W MO*St Ne» *n N» 100-1 



l«S«D few-Video ■*«•>■, KeJTv. OK /#n*/\ ajM n. and Vp» ■ me MMrM tradMnarkt or 
Ms et. Cent. Wsr^stta Cans terxw— / S» " *- ». •* Helen C» . P»J— t+aaman Cue* MM 
"AW C tvtj u i m. ** Wl-v>ew«a n i»ii > r«ii»tjne»j y fc.a»l ■ n ej«f n «. — ». rx. 



Circle '07 on Reader Service card 



PROFESSIONAL QUALITY SOFTWARE THAT'S AFFORDABLE 
From MISOSYS - Supporting the TRS-80 users since 1978 



ADE $39.95 

CMD-FILE $24.95 

C0N80Z $24.95 

CONVCPM $39.95 

DD&T $24.95 

DW2PS/FLT $24.95 

EDAS 4.3 $74.95## 

ESP $24.95 

GRASP $24.95 

HartFORTH $74.95## 

IFC $24.95 

LC 1.2 $124.95** 

LCOPY $39.95 

MACH2 $24.95 

MLIB $24.95 



MSP-01 $24.95 

PaDS $24.95 

PRO-ADE $39.95 

PRO-CESS $24.95 

PR0-C0N80Z $24.95 

PRO-CREATE $74.95## 

PRO-CURE $39.95 

PRO-DD&T $24.95 

PRO-DUCE $24.95 

PRO-ESP $24.95 

PRO-GENY $24.95 

PRO-HartFORTH . $74.95## 

PRO-HELP $14.95 

PRO-IFC $24.95 

PRO-LC $124.95** 



PR0-MACH2 $24.95 

PRO-MLIB $24.95 

PRO-PaDS $24.95 

PRO-SAID $24.95 

PRO-XFTS $24.95 

PRO-ZCAT $24.95 

PRO-ZGRAPH .... $24.95 

PRO-ZSHELL $24.95 

SAID $24.95 

SOLE $14.95 

VRHARD $74.95 

X-FTS $24.95 

ZCAT $24.95 

ZGRAPH $24.95 

ZSHELL $24.95 



US/CANADA Shipping: ** add $5, ## add $4, All others add $2 each 

C PROG LANGUAGE by K&R . $21.95 PROGRAMMER'S GUIDE TRSDOS 6 by Soltoff . $14.95 

MISOSYS 3/4" Binder $9.95 Perma Products DISK MAILERS 10-pak $9.95 

CENTECH DISKS - Box of 10 - Most colors in stock - Specify COLOR $24.95 

MISOSYS, Inc. PO Box 239 Sterling, VA 22170-0239 703-450-4181 

We accept Check/MasterCard/VISA/CHOICE - Call or write for catalog 



80 Micro, March 1985 • 47 



"I am amazed at the broad spectrum of 
technical articles you publish, for both 
novice and advanced programmers . . ." 




If you're still wondering which magazine you should 
buy for your TRS-80*, here's what 80 Micro readers 
have to say about their #1 system-specific information 
source 

• "Not only is the magazine very professionally done, 
but I have found something in almost every issue that 
has been worth the price of the subscription. . ." 

Roger L. Holstege 
M&ersvilk, MD 

•"1 was greatly impressed by your magazine. I got more 
useful information from that one issue of 80 than I have 
from countless other sources ..." 

John M. Crittenden 
Jackson, MS 

•"I have found 80 Micro to be the most valuable mag- 
azine pertaining to home computers on the market ..." 

William C Hardin, Jr. 
Charlotte. NC 

80 Micro is the magazine for every TRS-80 user from 
beginner to advanced. 80 Micro is full of tutorials, free 
programs, hardware modifications, new product an- 
nouncements, product reviews, debugging tips, and 
more. 



And an 80 Micro subscription is risk-free. If you're 
not completely satisfied, you'll be reimbursed for all un- 
deliicreil issues. See what 80 Micro can do for you. It's 
#1 for a lot of people. Fill out this order form and send 
it in now. 

lonait d K.i. 



JL CSi I want a no risk subscription to the 
magazine for beginner to advanced TRS-80 
users. Send me 12 issues of 80 MICRO for 
$24.97! I'll save 48% off the newsstand price! 



□ Payment Enclosed 


□ Bill me 


N'.inir 




Adilicss — 


City State 


Zip 



Canada & Mexico. $27.97. Foreign surface. $44.97. 1 year only. 
I S funds drawn on US bank. Please allow 6-8 weeks for delivery. 

BOmiCrO • PO Box 98 1 • Famingdale. NY 11737 



Circle ?52 on Reader Serv ce card 



ENGINEER'S AIDE 



Grcie 282 on Reader Service card 



PIPFLINE SIZING 

. ■ 



PUMP COMPRESSOR SIZING 



HEAT EXCHANGER SIZING 












• ■ 
- 



ORIFICE. CONTROL VALVE. & RELIEF VALVE SIZING 

■ . 

ENERGY COST CALCULATOR 

■ 

SPECIFICATION WRITER 

3 RICE SI 49 SO 

ENGINEERING PROGRAMMING CONCEPTS 



TRS-80 

otsok our w®sm® 



ALWAYS AT 
SALE PRICES 

WITH MANUFACTURERS 
WARRANTY (IN USA). 



J 




Circle 3-42 on Reader Service ca'd 



DISK SUPER SAVER 

'Nashua /^ 

Professional Magnetic ( ffcV 
Media 

Certified 100% Error Free 
LIFETIME WARRANTY 

5 1 /4" SS/SD $1.26 

SS/DD $1.34 

DS/DD $1.69 

8" SS/SD $2.04 

SS/DD $2.44 

DS/DD $2.88 

Minimum order of 50 diskettes packaged In boxes ol 10, with Tyvek sleeves 
and reinforced hubs Quantity discounts: 100 deduct 5%. 1000 deduct 15'/.. 
We accept MasterCard. Visa, checks and money orders. Most orders shipped 
within 24 hours. P.O.'s accepted Jrorn most schools, govt, agencies and For- 
tune 1000 companies. Shipping and handling FOB. Amherst $3.00 additional 
for COD orders. Prices subject to change without notice. 
Send or phone your order to: 

AEC 

tm a^ P.O. Box 183, Amherst, N.H. 03031 

Toll Free 1-800-431-8031 
In N.H. call 603-673-3137 



CALL TOLL FREE 

To get YOUR 
SALE PRICE-DIAL 

1-800-433-SALE 

(9am - 5pm C.S.T.) 



COMPUTER, 
CENTER 



WE SHIP 

FAST! 



.-282 



l)FU COMPUTER CENTER 

326 MAIN ST.. GRAPEVINE 
TEXAS 76051 (817)481-7283 

is m ss 

REGD. TANDV CORPORATION 




80 Micro, March 1985 • 49 



Continued from p. 46 

Moving Parts 

Graph lets you store portions of a 
screen display and reproduce them any- 
where you want. To do so, you must 
outline what you want to save, so posi- 
tion the cursor next to that part of the 
screen. Press either shift key, followed 
by a number key from 1-5 to assign the 
illustration a number. Then draw your 
outline; a flashing line marks the 
boundaries of the image you want 
saved. Unless you're extremely nimble 
with the arrow keys, slow down the cur- 
sor for this operation. 

When you've completed your outline, 
press the enter key. Within a few sec- 
onds, Graph stores all pixels within the 
outlines to the number key you spec- 
ified. 

You can display the stored image as- 
is, or you can reproduce it with dif- 
ferent black /white configurations. Start 
with the cursor above the spot where 
you want to reproduce the image. Then 
press a shift key, followed by one of 
these letter combinations: PW to dis- 
play all white pixels stored, PB to dis- 
play all black pixels stored, NW for a 
white negative version of PW, NB for a 
black negative version of PB, B for an 
all-black image, W for all-white. 

After you type in the appropriate let- 
ter or letters, press the number key cor- 



responding to the stored image (1-5). 
For example, to display all the black 
pixels saved to the 1 key, press the shift 
key, then type in PB1. 

Figure 4 illustrates the shift key func- 
tion. The letter G in the Graph logo (see 
Fig. 1) was outlined and saved to the 1 
key, then reproduced in each of 
Graph's black/white configurations. 
The key combinations for displaying 
each of the figures, from upper left to 
bottom right, are the shift key and 
PW1, PB1, NW1, NB1, Bl, and Wl. 

The shift key function saves you the 
trouble of redrawing a repeated image. 
For example, to incorporate numbers 
and letters into your graphics, you 
could create a character set and save it 
in a disk file; when you need a particular 
character, you can store it using the 
shift key and display it in your new 
design. 

Graph Extras 

Three of Graph's routines are Basic 
programs that you invoke by pressing X 
followed by a number. XI transfers 
control to a menu-driven routine that 
draws circles; you can set the circle's di- 
ameter and position on the screen. Press- 
ing X2 displays a help screen listing 
Graph's commands. X3 calls a program 
that rotates a display or creates an explo- 
sion effect. It takes several minutes to 
perform rotation or explosion and the 



screen may go black before uraph begins 
drawing the new display. Figure 5 shows 
the Graph logo after suffering an explo- 
sion with a diameter of 6. 

Printed Matter 

You can print screen displays in 28 
sizes. When you press P, Graph prompts 
you for the type of printer, Radio Shack 
(press R) or Epson (press E). Radio 
Shack printers must have dot-address- 
able graphics; Epsons or Epson-compat- 
ibles should have the Graftrax feature. 

Now you can select the printout's 
size. Press S for a small picture followed 
by 1, 2, or 3 depending on the number 
of identical pictures you want to print. 
For a medium-sized picture press M; 
press L for a large one. 

If you press D, you can define your 
own pixel size. Type in a number from 
1-4 to define width and a number from 
1-7 for length. Figure 6 shows a me- 
dium-sized printout of a picture; in 
Fig. 7, pixels are defined as 3,6; in Fig. 8 
as 1,4. ■ 



Michael Leibow (age 18) is studying 
computer engineering at the Rochester 
Institute of Technology in New York. 
He is a self-taught programmer who 
writes mostly in machine language. You 
can contact him at 2361 Beach wood 
Blvd., Beach wood, OH 44122. 









Program Listing I. Graph/SRC. 








00100 


ORG 


7000H 


00490 LD 


BC,1024 


00 880 


SUB 


126 


0110 CPYWTE 


DEFM 


•(c) 1984' 


00500 INTl LD 


A,(DE) 


00890 


JP 


H,HAIN 


00120 START 


DI 




00510 CP 


(HL) 


00900 REPIX 


LD 


A, (14400) 


00130 


CALL 


INTIAL 


00520 JP 


Z,INT2 


C0910 


BIT 


7, A 


00140 


LD 


A, (HL) 


00530 INC 


A 


00920 


JP 


NZ, REPIX 


00150 


CP 


13 


00540 LD 


(DE) ,A 


00930 


LD 


A,(YY) 


30160 


JP 


Z,BFRE 


00550 INT2 INC 


DE 


00940 


LD 


D,A 


00170 


PUSH 


HL 


00560 DEC 


BC 


00950 


LD 


A, (XX) 


00180 ADDEXT 


INC 


ML 


00570 INC 


HL 


00960 


LD 


E,A 


00190 


LD 


A,(HL) 


00580 LD 


A,B 


00970 


PUSH 


DE 


00200 


CP 


13 


00590 OR 


C 


00980 


CALL 


TEST 


00210 


JP 


N Z, ADDEXT 


00600 JP 


NZ,INT1 


00990 


POP 


DE 


00220 


CALL 


EXTENS 


00610 LD 


BC.1024 


01000 


JP 


2,REPIX1 


03230 


POP 


HL 


00620 LD 


HL, BUFFS 


01010 


CALL 


RESET 


00240 


CALL 


LDFRST 


00630 LD 


DE.3C0OH 


01020 


JP 


LOOP1 


00250 


LD 


HL, BUFFS 


00640 INT3 LD 


A, (DE) 


01030 REPIX1 


CALL 


SET 


00260 


LD 


DE,TEHPSC 


00650 CP 


(HL) 


01040 


JP 


LOO PI 


00270 


LD 


BC,1024 


00660 JP 


NZ, INTRO 


01050 MAIN 


ADD 


A, 128 


00280 


LDIR 




00670 INC 


HL 


01060 


CP 


4 


00290 


CALL 


INTRO 


006 80 INC 


DE 


01070 


CALL 


Z,ADVAN 


00300 


CALL 


LOAD 


006 90 DEC 


BC 


01080 


CALL 


ROL'TMS 


00310 


JP 


LOOP 


00700 LD 


A,B 


01090 


JP 


LOOP1 


00320 BFRE 


CALL 


PRPARE 


00710 OR 


C 


01100 ROUTMS 


CP 


8 


00330 


CALL 


INTRO 


00720 JP 


NZ.INT3 


01110 


CALL 


Z,UP 


00340 


CALL 


WHITE 


007 30 INT4 CALL 


NEGATI 


01120 


CP 


16 


00350 


JP 


LOOP 


007 40 LD 


HL,AL'TH 


01130 


CALL 


Z , DOWN 


00360 PRPARE 


LD 


HL, BUFFS 


007 50 LD 


DE, 16321 


01140 


CP 


32 


00370 


LD 


DE,1024 


00760 LD 


BC,61 


01150 


CALL 


Z,LEFT 


00380 PRP1 


LD 


A,(HL) 


00770 LDIR 




01160 


CP 


40 


00390 


ADD 


A, 70 


007 83 LD 


BC, 10000 


01170 


CALL 


Z,NW 


00400 


LD 


(HL) ,A 


00790 CALL 


WASTE 


01180 


CP 


48 


00410 


I tic 


HL 


00800 CALL 


ENTER 


01190 


CALL 


Z,SW 


00420 


DEC 


DE 


00810 JP 


Z,INT4 


01200 


CP 


64 


00430 


LD 


A,D 


00820 RET 




C1210 


CALL 


Z, RIGHT 


00440 


OR 


E 


00 830 LOOP DI 




01220 


CP 


72 


00450 


JP 


NZ.PRP1 


00 840 LD 


A,(3880H) 


01230 


CALL 


Z,NE 


00460 


RET 




00853 OR 


A 


01240 


CP 


80 


00470 INTRO 


LD 


HL, BUFFS 


00 860 CALL 


NZ,NEWKEY 


01250 


CALL 


Z,SE 


00480 


LD 


DE,3C00H 


00870 LD 


A, (14400) 






Listing 1 continued 



50 • 80 Micro, March 1985 



Circle 8 on Reader Service card. 



/ Bring / continued 


















02240 TLOAD 


LD 


HL,4211H 


01260 


RET 




02250 


LD 


(HL) ,1 


01270 LOOPl 


CALL 


BLINK 


02260 


CALL 


0296H 


01280 


CALL 


002BH 


02270 


LD 


HL.3C00H 


01290 


03. 


A 


02280 


LD 


BC,10 24 


01300 


JP 


Z , LOOP 


02290 TLOOP1 


CALL 


0235H 


01310 


CP 


87 


02300 


LD 


(HL) ,A 


01320 


CALL 


Z, WHITE 


02310 


LD 


A, (14400) 


01330 


CP 


67 


02320 


CP 


4 


01340 


CALL 


Z,CLS 


02330 


JP 


Z, BREAK 


01350 


CP 


82 


02340 


INC 


HL 


01360 


CALL 


Z , RND 


02350 


DEC 


BC 


01370 


CP 


31H 


02360 


LD 


A,B 


01380 


CALL 


Z, SLOWER 


02370 


OH 


C 


01390 


CP 


32H 


023 80 


JP 


NZ,TLOOPl 


01400 


CALL 


Z, FASTER 


023 90 


CALL 


01F8H 


01410 


C? 


84 


02400 


JP 


CLRRET 


01420 


CALL 


Z,TAPE 


02410 INTIAL 


PUSH 


HL 


U1430 


CP 


83 


02420 


LD 


IX,KEY1 


J 1 4 4 .' 


CALL 


Z,SAVEP 


02430 


CALL 


INIT1 


01450 


CP 


78 


02440 


LD 


IX,KEY2 


01460 


CALL 


Z, MEG AT I 


02450 


CALL 


INIT1 


01470 


CP 


68 


02460 


LD 


IX,KEY3 


01480 


CALL 


Z,DISK 


02470 


CALL 


INIT1 


01490 


CP 


76 


02480 


LD 


IX,KEY4 


01500 


CALL 


Z , LDTORP 


02490 


CALL 


INIT1 


01510 


CP 


45H 


02500 


LD 


IX.KEY5 


01520 


CALL 


Z,EXCHA 


02510 


CALL 


INIT1 


01530 


CP 


4 8H 


02520 


LD 


HL,BUFLAS 


01540 


CALL 


Z,HORIZ 


02530 


LD 


(HL) ,255 


01550 


CP 


561! 


02540 


LD 


DE,BUFLAS+1 


01560 


CALL 


Z,VERT 


02550 


LD 


BC,1152 


01570 


CP 


50H 


02560 


LDIR 




01580 


CALL 


Z,LPRINT 


02570 


LD 


HL,NEWBUF 


01590 


CP 


4BH 


02580 


LD 


DE,NEWBUF+1 


01600 


CALL 


Z,KEEP 


02590 


LD 


BC,999 


01610 


CP 


4DH 


02600 


LD 


(HL) ,255 


01620 


CALL 


Z , MODE 


02610 


LDIR 




01630 


CP 


51H 


02620 


JP 


POPHRT 


01640 


CALL 


Z, PLAID 


02630 INIT1 


LD 


(IX) ,0 


01650 


CP 


42H 


02640 


LD 


(IX+1) ,128 


01660 


CALL 


Z,BKWRD 


02650 


LD 


(IX+2) ,6 


01670 


CP 


55H 


02660 


PUSH 


IX 


01680 


CALL 


Z.UPDOWN 


02670 


POP 


HL 


01690 


CP 


4 9H 


02680 


LD 


DF. ,3 


01700 


CALL 


Z.INTIAL 


02690 


ADD 


HL.DE 


01710 


CP 


88 


02700 


LD 


(HL) ,255 


01720 


CALL 


Z,UTIL 


02710 


PUSH 


HL 


01730 


CP 


'/• 


02720 


POP 


DE 


01740 


CALL 


Z,UTIL2 


02730 


INC 


DE 


01750 


CP 


44 


02740 


LD 


BC1149 


01760 


CALL 


Z, ORIGIN 


02750 


LDIR 




01770 


CP 


46 


02760 


RET 




01780 


CALL 


Z,LINE 


02770 WHITE 


LD 


HL,3C00H 


01810 


JP 


LOOP 


02780 


LD 


(HL) ,191 


01820 SLOWER 


LD 


HL, (HOWFAS) 


02790 


LD 


DE,3C01H 


01830 


LD 


BC,500 


02800 


LD 


BC1023 


01840 


XOR 


A 


02810 


LDIR 




3ie50 


SBC 


HL,BC 


02820 


RET 




01860 


RET 


C 


02830 ENTER 


LD 


A, (14400) 


01870 


LD 


(HOWFAS) ,HL 


02840 


BIT 


0,A 


01880 


RET 




02850 


RET 


Z 


01890 FASTER 


LD 


HL, (HOWFAS) 


02860 ENT1 


LD 


A, (14400) 


01900 


:.d 


BC,500 


02870 


BIT 


0,A 


01910 


ADD 


HL.BC 


02880 


JP 


NZ,ENT1 


01920 


RET 


C 


02890 


INC 


A 


01930 


LD 


(HOWFAS) ,HL 


02900 


RET 




01940 


RET 




02910 BLINK 


LD 


A,(YY) 


01950 TAPE 


CALL 


0O2BH 


02920 


LD 


D,A 


01960 


OR 


A 


02930 


LD 


A, (XX) 


01970 


JP 


Z,TAPE 


02940 


LD 


E,A 


01980 


CALL 


SAVE 


02950 


CALL 


TEST 


01990 


CP 


83 


02960 


JP 


Z,OFFF 


02000 


JP 


Z, TSAVE 


02970 ONN 


LD 


A,(YY) 


02010 


CP 


76 


02980 


LD 


D,A 


02020 


JP 


Z,TLOAD 


02990 


LD 


A, (XX) 


02030 


LD 


A, (14400) 


03000 


LD 


E,A 


02040 


CP 


4 


03010 


CALL 


RESET 


02050 


JP 


Z, BREAK 


03020 


LD 


BC,500H 


02060 


JP 


TAPE 


03030 


CALL 


WASTE 


2070 TSAVE 


LD 


HL,4211H 


03040 


LD 


A,(YY) 


02080 


LD 


(HL),1 


03050 


LD 


D,A 


02090 


CALL 


0287H 


03060 


LD 


A, (XX) 


02100 


LD 


BC,1024 


03070 


LD 


E,A 


02110 


LD 


HL,3C00H 


03080 


CALL 


SET 


02120 TLOOP 


LD 


A, (HL) 


03090 


RET 




02130 


CALL 


0264H 


03100 OFFF 


LD 


A,(YY) 


02140 


LD 


A, (14400) 


03110 


LD 


D,A 


02150 


CP 


4 


03120 


LD 


A, (XX) 


02160 


JP 


Z, BREAK 


03130 


LD 


E,A 


02170 


INC 


HL 


03140 


CALL 


SET 


02180 


DEC 


BC 


03150 


LD 


BC,500H 


02190 


LD 


A,B 


03160 


CALL 


WASTE 


02200 


OR 


C 


03170 


LD 


A,(YY) 


02210 


JP 


NZ, TLOOP 


03180 


LD 


D,A 


82220 


CALL 


01F8H 


03190 


LD 


A, (XX) 


02230 


JP 


CLRRET 






l.almK 1 amtmued 



WHEN YOU TYPE 

"TALLY" 

you get what you 

thought those 

"CALC" programs 

would give you: 

• easy to use 

• simple and logical 

• totals by item and category 

• every category named 

• built-in sorts 

• clear documentation 




Whether you're managing 

a home budget or business 

expenses, TALLYM ASTER 

gives you better 

understanding and control. 

Customers told us: 
"Looks like just what I need to 
keep track ot Income & Expenses 
in my Real Estate appraisal , v 
business." (L E ) SO 

"Well-packaged, clear y^V^'^'-^Jj 
instructions, easy to V if 

use." (G L.G.) \'\"\ 

"Just what we need for In- ***^f 
house Budgets." (N Ariz Univ) 

And. 80 MICRO gave it a Five 
Star review: "I recommend Tally- 
master to every user who wants a 
good, easy, accurate bookkeep- 
ing system, and to anyone inter- 
ested in home or small business 
budgeting and bookkeeping." 
(July. 1983) 



All this for only $79 .35 
(TRS-80 Models I. III. 48K. disk) 



Also available for MS DOS 

128K. disk. Has Function Key support and 
an even faster sort. 
Special price: $99.95 

ORDER NOW, TOLL-FREE 
(800) 824-7888, oper. 422 

Dept. G, Box 560, No. Hollywood. CA 91603 

(818) 764-3131 Information and same-day processing 

TERMS VISA MC. checks. COD Please ado S2 00 

shipping m US or Canada sales tax m CA 

Most orders filled within one day 



80 Micro. March 1985 • 51 



Listing 1 continued 
























04160 


LD 


(DE) ,A 


05130 


CP 


4 


03200 


LD 


E,A 


04170 


RET 




05140 


JP 


Z, BREAK 


03210 


CALL 


RESET 


04180 DIVIDE 


LD 


A,L 


05150 


LD 


A, (YYY) 


03220 


RET 




04190 


LD 


L,H 


05160 


lu 


D,A 


03230 ORIGIN 


LD 


A, (XX) 


04200 


LD 


H,0 


05170 


LD 


A, (XXX) 


03240 


LD 


(XI) ,A 


04210 


SLA 


L 


05180 


LD 


E,A 


03250 


LD 


A,(YY) 


04220 


BIT 


7, A 


05190 


CALL 


TEST 


03260 


LD 


(YD, A 


04230 


JP 


Z.DIV1 


05200 


JP 


HZ , BKSET 


03270 


JP 


CLRRET 


04240 


INC 


L 


05210 


LD 


HL.BKBUFF 


03280 LINE 


LD 


A, (XI) 


04250 DIV1 


LD 


A,L 


05220 


LD 


A, (YYY) 


03290 


INC 


A 


04260 


BIT 


7, A 


05230 


LD 


E,A 


03300 


RET 


Z 


04270 


JP 


NZ,DIV2 


05240 


LD 


D,0 


03310 LINE1 


LD 


A, (14400) 


04280 


LD 


B,0 


05250 


ADD 


HL,DE 


03320 


CP 


4 


04290 


RET 




05260 


XOR 


A 


03330 


JP 


Z, BREAK 


04300 DIV2 


LD 


B,0FFH 


05270 


LD 


(HL) ,A 


03340 


CALL 


2BH 


04310 


RET 




05280 


JP 


BKCON0 


03350 


OR 


A 


04320 EXCHA 


CALL 


SAVE 


05290 BKSET 


LD 


HL,BKBUFF 


03360 


JP 


Z, LIN El 


04330 


CALL 


LOADP 


05300 


LD 


A, (YYY) 


03370 


CALL 


SAVE 


04340 


LD 


HL,TEMPSC 


05310 


LD 


F.,A 


03380 


CP 


If,! 


04350 


LD 


DE, SCREEN 


05320 


LD 


D,0 


03390 


JP 


Z, LINEW 


04360 


LD 


BC,1024 


05330 


ADD 


HL,DE 


03400 


CP 


'B' 


04370 


LDIR 




05340 


LD 


A,l 


03410 


JP 


Z, LINEB 


04380 


RET 




05350 


LD 


(HL) ,A 


03420 


JP 


LINE1 


04390 CLS 


LD 


HL,3C00H 


05360 BKCOM0 


LD 


A, (YYY) 


03430 LINEW 


LD 


A,l 


04400 


LD 


(HL) ,128 


05370 


INC 


A 


03440 LI 


LD 


(LMODE) ,A 


04410 


LD 


DE,3C01H 


05380 


CP 


48 


03450 


JP 


L2 


04420 


LD 


BC,1023 


05390 


JP 


Z,BKCONl 


03460 LINEB 


LD 


A, 2 


04430 


LDIR 




05400 


LD 


(YYY) ,A 


03470 


JP 


LI 


04440 


RET 




05410 


JP 


BKCONT 


03480 L2 


LD 


A, (XI) 


04450 MODE 


LD 


A, (BB) 


05420 BKCON1 


XOR 


A 


03490 


LD 


DEjWORDl 


04460 


DEC 


A 


05430 


LD 


(YYY) ,A 


03500 


CALL 


MULT 


04470 


JP 


Z, MODEl 


05440 BKCON2 


LD 


A, (XXX) 


03510 


LD 


A, (YD 


04480 


DEC 


A 


05450 


LD 


B,A 


03520 


LD 


DE,WORD2 


04490 


JP 


Z,MODE2 


05460 


LD 


A, 127 


03530 


CALL 


MULT 


04500 


JP 


MODEl 


05470 


SUB 


B 


03540 


LD 


A, (XX) 


04510 MODE2 


LD 


A,l 


05480 


LD 


E,A 


03550 


LD 


DE,WORD3 


04520 


JP 


MODEND 


05490 


LD 


A, (YYY) 


03560 


CALL 


MULT 


04530 MODEl 


LD 


A, 2 


05500 


LD 


D,A 


03570 


LD 


A,(YY) 


04540 MODEND 


LD 


(BB) ,A 


05510 


CALL 


TEST 


03580 


LD 


DE r WORD4 


04550 


RET 




05520 


PUSH 


AF 


03590 


CALL 


MULT 


04560 KEEP 


LD 


A, (BB) 


05530 


LD 


A, (XXX) 


03600 


LD 


HL,(WORDl) 


04570 


DEC 


A 


05540 


LD 


E,A 


03610 


LD 


DE, (WORD3) 


04580 


JP 


Z,KEEP1 


05550 


LD 


A, (YYY) 


03620 


OR 


A 


04590 


DEC 


A 


05560 


LD 


D,A 


03630 


SBC 


HL,DE 


04600 


JP 


Z,KEEP1 


05570 


POP 


AF 


03640 


CALL 


DIVIDE 


04610 


DEC 


A 


05580 


JP 


NZ,BKSET1 


03650 


LD 


L,A 


04620 


JP 


Z,KEEP2 


055 90 


CALL 


RESET 


03660 


LD 


H,B 


04630 KEEP1 


LD 


A, 3 


05600 


JP 


BKCON3 


03670 


LD 


(DX) ,HL 


04640 


JP 


MODEND 


05610 BKSET1 


CALL 


SET 


03680 


LD 


HL, (WORD2) 


04650 KEEP2 


LD 


A, 4 


5620 BKCON3 


LD 


HL,BKBUFF 


03690 


LD 


DE, (WORD4) 


04660 


JP 


MODEND 


05630 


LD 


A, (YYY) 


03700 


OR 


A 


04670 HORIZ 


LD 


A, 179 


05640 


LD 


C,A 


03710 


SBC 


HL,DE 


04600 


CALL 


ODDL 


05650 


LD 


B,0 


03720 


CALL 


DIVIDE 


04690 


LD 


A, 140 


05660 


ADD 


HL,BC 


03730 


LD 


L,A 


04700 


CALL 


EVENL 


05670 


LD 


A, (HL) 


03740 


LD 


H,B 


04710 


JP 


CLRRET 


056 80 


OR 


A 


03750 


LD 


(DY) ,HL 


04720 PLAID 


LD 


A, 153 


05690 


PUSH 


AF 


03760 L3 


LD 


HL,(WORDl) 


04730 


CALL 


ODDL 


05700 


LD 


A, (XXX) 


03770 


LD 


DE, (DX) 


04740 


LD 


A, 166 


05710 


LD 


B,A 


03780 


OR 


A 


04750 


CALL 


EVENL 


05720 


LD 


A, 127 


03790 


SBC 


HL,DE 


04760 


JP 


CLRRET 


05730 


SUB 


B 


03800 


LD 


(WORD1) ,HL 


04770 EVENL 


LD 


(TEMA) ,A 


05740 


LD 


E,A 


03810 


CALL 


DIVIDE 


04780 


LD 


HL, 15424 


05750 


LD 


A, (YYY) 


03820 


PUSH 


AF 


04790 


LD 


DE,64 


05760 


LD 


D,A 


03830 


LD 


HL,(WORD2) 


04800 


LD 


B,8 


05770 


POP 


AF 


03840 


LD 


DE, (DY) 


04810 


PUSH 


DE 


05780 


JP 


NZ,BKSET2 


03 850 


OR 


A 


04820 


JP 


GLINE 


05790 


CALL 


RESET 


03 860 


SBC 


HL,DE 


04830 ODDL 


LD 


(TEMA) ,A 


05800 


JP 


BKCOM4 


03870 


LD 


(WORD2) ,HL 


04840 


LD 


HL,15360 


05810 BKSET2 


CALL 


SET 


03880 


CALL 


DIVIDE 


04850 


LD 


DE,64 


05 820 BKCON4 


LD 


A, (YYY) 


03 890 


LD 


D,A 


04860 


LD 


B,8 


C5830 


INC 


A 


03900 


POP 


AF 


04870 


PUSH 


DE 


05840 


CP 


46 


03 910 


LD 


E,A 


04880 GLINE 


LD 


A, (TEMA) 


05850 


JP 


Z,BKCON5 


03920 


LD 


A, (LMODE) 


04 890 


OR 


(HL) 


05860 


LD 


(YYY) ,A 


03930 


DEC 


A 


04900 


LD 


(HL) ,A 


05870 


JP 


BKCON2 


03940 


JP 


Z,L4 


04910 


INC 


HL 


05880 BKCON5 


LD 


A, (XXX) 


03950 


CALL 


RESET 


04920 


DEC 


DE 


05890 


INC 


A 


03960 


JP 


L5 


04930 


LD 


A,D 


05900 


CP 


64 


039/0 L4 


CALL 


SET 


04940 


OR 


E 


05910 


RET 


Z 


03980 L5 


LD 


HL, (WORD3) 


04950 


JP 


NZ, GLINE 


05920 


JP 


BKSTT 


03990 


LD 


DE, (WORD1) 


04960 


POP 


DE 


5930 UPDOWN 


CALL 


SAVE 


04000 


RST 


18H 


04970 


ADD 


HL,DE 


05940 


XOR 


A 


04010 


JP 


NZ,L3 


04980 


PUSH 


DE 


05950 UPSTT 


LD 


(YYY) ,A 


04020 


LD 


HL,(WORD4) 


04990 


DJNZ 


GLINE 


05960 


XOR 


A 


04030 


LD 


DE,(WORD2) 


05000 


POP 


DE 


05970 


LD 


(XXX) ,A 


04040 


RST 


18H 


05010 


RET 




05 980 UPCOI1T 


LD 


A, (14400) 


04050 


JP 


NZ,L3 


05020 VERT 


LD 


A, 149 


05990 


CP 


4 


04060 


RET 




05030 


CALL 


ODDL 


06000 


JP 


Z, BREAK 


04070 MULT 


LD 


B,7 


05040 


LD 


A, 149 


06010 


LD 


A, (YYY) 


04080 


LD 


L,A 


05050 


CALL 


EVENL 


06020 


LD 


D,A 


04090 


LD 


H,0 


05060 


JP 


CLRRET 


06030 


LD 


A, (XXX) 


04100 HULT1 


ADD 


HL,HL 


05070 BKWRD 


CALL 


SAVE 


06040 


LD 


E,A 


04110 


DJNZ 


MULT1 


05080 


XOR 


A 


06050 


CALL 


TEST 


04120 


LD 


A,L 


5090 BKSTT 


LD 


(XXX) ,A 


06060 


JP 


NZ, UPSET 


0413(9 


LD 


(DE) ,A 


05100 


XOR 


A 


06070 


LD 


HL,BKBUFF 


04140 


LD 


A,H 


05110 


LD 


(YYY) ,A 


06080 


LD 


A, (XXX) 


04150 


INC 


DE 


1 05120 BKCONT 


LD 


A. (14400) 






Listing 1 continued 



52 • 80 Micro, March 1985 



Circle 176 on Reader Service card. 



Lining 1 continued 






06090 




LD 


E,A 


06100 




LD 


D,0 


06110 




ADD 


HL,DE 


06120 




XOR 


A 


06130 




LD 


(HL) ,A 


06140 




JP 


UPCON0 


06150 


UPSET 


LD 


HL,BKBUFF 


06160 




LD 


A, (XXX) 


06170 




LD 


E,A 


06180 




LD 


D,0 


06190 




ADD 


HL,DE 


06200 




LD 


A,l 


06210 




LD 


(HL) ,A 


06220 


UPCON0 


LD 


A, (XXX) 


06230 




INC 


A 


06240 




CP 


128 


06250 




JP 


Z,UPCONl 


06260 




LD 


(XXX) ,A 


06270 




OP 


UPCONT 


06280 


UPCON1 


XOR 


A 


06290 




LD 


(XXX) ,A 


06300 


UPCON2 


LD 


A, (YYY) 


06310 




LD 


B,A 


06320 




LD 


A, 47 


06330 




SUB 


B 


06340 




LD 


D,A 


06350 




LD 


A, (XXX) 


06360 




LD 


t:,A 


06370 




CALL 


TEST 


06380 




PUSH 


AF 


06390 




LD 


A, (XXX) 


06400 




LD 


E,A 


06410 




LD 


A, (YYY) 


06420 




LD 


D,A 


06430 




POP 


AF 


06440 




JP 


MZ,UPSET1 


06450 




CALL 


RESET 


06460 




JP 


UPCON3 


06470 


UPSET1 


CALL 


SET 


06480 


UPC0N3 


LD 


[IL,BKBUFF 


06490 




LD 


A, (XXX) 


06500 




LD 


C,A 


06510 




LD 


B,0 


06520 




ADD 


HL,BC 


06530 




1,0 


A, (HL) 


06540 




OR 


A 


06550 




PUSH 


AF 


06560 




LD 


A, (YYY) 


06570 




LD 


B,A 


06580 




LD 


A, 47 


06590 




SUB 


B 


06600 




LD 


D,A 


06610 




LD 


A, (XXX) 


06620 




LD 


E,A 


06630 




POP 


AF 


06640 




JP 


NZ,UPSET2 


06650 




CALL 


RESET 


06660 




JP 


UPCON4 


06670 


UPSET2 


CALL 


SET 


06680 


UPCON4 


LD 


A, (XXX) 


06690 




INC 


A 


06700 




CP 


128 


06710 




JP 


Z,UPCON5 


06720 




LD 


(XXX) ,A 


06730 




JP 


UPCON2 


06740 


UPCON5 


LD 


A, (YYY) 


06750 




INC 


A 


06760 




CP 


24 


06770 




RET 


Z 


06780 




JP 


UPSTT 


06790 


UTIL 


CALL 


2BH 


06800 




OR 


A 


06810 




JP 


Z,UTIL 


06 820 




CALL 


SAVE 


06830 




CP 


31H 


06840 




JP 


Z,UTIL1 


06850 




CP 


32H 


06 860 




JP 


Z,UTIL2 


06870 




CP 


33H 


06880 




JP 


Z,UTIL3 


06 890 




LD 


A, (14400) 


06900 




CP 


4 


06 910 




JP 


Z, BREAK 


06 920 




JP 


UTIL 


06930 


UTIL1 


LD 


HL.AUTIL1 


06940 


UTILX 


PUSH 


HL 


06 950 




CALL 


SAVPIC 


06960 




POP 


HL 


06970 




POP 


AF 


06980 




JP 


4299H 


06 990 


UTIL2 


LD 


HL,AUTIL2 


07000 




JP 


UTILX 


07010 


UTIL3 


LD 


HL.AUTIL3 


0T020 




JP 


UTILX 


07030 


SAVPIC 


LD 


HL,TEMPIC 
Lining 1 continued 



FILE TRANSFER 
+ Conversion Utilities 

APPLEv IBM PC/XT. JR $129.95 

TRS L^> Tandy 1000. 1200. 2000 . . $129.95 
C?/M^ IBM AT $224.95 



WWJ^\ 




Transfer your Apple, TRS, CP/M to the IBM PC or Compatibles. 



Transfers: (no more retyping) 

• Visicalc, Multiplan 

• Basic. Fortran. Cobol 



ASCII files, data files 
Word processing files 



IBM PC/XT, Jr. — ► Tandy 2000 $129.95 

DISK Transporter transfers files back and forth, includes utilities. 



New Yellow Disks 
DS/DD $2ea. (20min.) 

I PERSONAL 
!■ COMPUTER 
[■■PRODUCTS 



New Products for IBM AT 
or compatibles 

Drives. 360 KB $275.00 

Prototype Boards & Extender 

Cards $120.00 ea. 

Serial Cables (6ft) $85 



<.t\A ^S^U 



1400 COLEMAN AVE.. SUITE C-18 SANTA CLARA CA 95050 
TELEPHONE (408) 986-0164 PHONE ORDERS 



IBM. IRS 80 & TANDY. APPLE CP/M VISICAIC. MULT1PLAN ARE RESPECTIVELY REGISTERED TRADEMARKS Of INTERNATIONAL 
BUSINESS MACHINES CORP TANDY CORPORATION APPLE COMPUTER HC DIGITAL RESEARCH. INC MSCORP MICROSOFT CORP 



Circle 216 on Reader Service card. 



TRS-80+ MOO I, III, COCO, Tr99/4a 
TIM EX 1000, OSBORNE, others 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 80 solders to the board edge con- 
nector. Use your existing cables, (if gold plated) 



GOLD PLUG 80 Mod I (6) 

Keyboard/El (mod I) 
Individual connectors 
COCO Disk Module (2) 
Ground tab extensions 
Disk Drives (all R.S ) 
Gold Disk Cable 2 Drive 
Four Drive Cable 
GOLD PLUG 80 Mod III (6) 
Internal 2 Drive Cable 
Mod III Expansion port 
USA shipping $1.45 
Foreign $7. 



*y 



,v" 



$44.95 

15.95 

7.95 

16.95 
INCL 

7.95 






*V 



$54. 9 5 
16 . 9 - 

I.UU 1 

fLQC 

2995 
39.95 
54.95 
29.95 



10.95 

Can/Mex $4. 

TEXAS 5% TAX 

Ask your favorite dealer or order direct 

E.A.P. CO. 

P.O. BOX 14 
order today- KELLER, TEXAS 76248 
(8 1 7) 498-4242 MC/VISA 

+ trademark Tandy Corp 



Micro, March 1985 • 53 



Circle 534 on Reader Service card. 



EXPAND TRS-80 MEMORY 



TRS-80 to 16K,32K, or 48K 

"Model 1 = From 4K-16K Requires (1) One Kit 

Model 3 From 4K-48K Requires (3) Three Kits 

Color = From 4K-16K Requires (1) Kit 

"Model 1 equipped witfi Expansion Board up to 48K Two Kits Required 
- One Kit Required lor each 16K of Expansion - 



TRS-16K3 
TRS-16K4 



200ns for Color & Model 
250ns for Model I 



$8.95 
$6.95 



TRS-80 Color 32K or 64K Conversion Kit 



Jasy to install kits come complete with 8 ea. 4 1 64-2 (200ns) 64K 
dynamic RAMs and conversion documentation Converts TRS-80 
color computers with D, E, ET, F and NC circuit boards to 32K 
Also converts TRS-80 color computer II to 64K. Flex DOS or OS-9 
required to utilize full 64K RAM on all computers 
TRS-64K2 $38.95 



new; TRS-80 Model IV 64K or 128K Conversion Kit 



Fasy to install kit comes complete with 8 each 4164 (200ns) 64K dynamic 
RAMs and conversion documentation Converts TRS-80 Model IV computers 
from 16K to 64K Also expands Model 4P from 64K to 128K 

TRS-64K2 $38.95 

(Converts the Model IV from 1 6K to 64K or will expand the Model 4P from 
64K to 128K) 

TRS-64K2PAL (Model IV only) $59.95 

(8-4164's with PAL Chip to expand from 64K to 128K) 

DISK DRIVES & ACCESSORIES 

MPI51S MR 5 V SS/DD full height bare disk drive. . . $89.95 

DCC-5V* 5V Disk Drive Case $19.95 

PCK-5 5V Disk Drive Power Cable Kit $ 2.95 

ULTRA MAGNETICS 5tt" DISKETTES 

" SSOO Sirigfo Sided Double Derewry • DSDD Double Sided Double Density 



m 



Pert No 



Di-scnption 



Boied 



UM51401 
UM52401 



SSOO with Hub Ring 
DSDD with Hub Ring 



10 $17.95 

10 $22.95 



AM diskettes are soft sectored w/hub rings Bulk prices available on request 

RID Disk Drive Analyzer 

Accommodates TRS-80 Model III. IV & 4P 
I 5S1-3 Evaluates 7 critical steps $37.95 





DISK 
MINDER 

• Attractive, functional disk storage system • 36 (3". 3 25" and 3.51, 50 (81 or 
75 (5'0 disk storage capacity • Easy filing and retrieving • Protects disk 
from dust contamination • Molded from durable smoked plastic with front 
carrying handle • Size (DM36) 8VL x 5 WW x 4VD • Size (DM50 & DM75) 
7"W x 6W"H x 9V. "D • Weight 2 lbs. 
Part No Description Pric* 

DM36 
DM75 
DM50 



Stores 36 (3". 3.25" and 3.5") Diskettes. . . . $19.95 ea. 

Stores 75 (5 V) Diskettes $19.95 ea. 

Stores 50 (81 Diskettes $29.95 ea. 



We also specialize in integrated circuits, custom cables, 

power supplies, keyboards, and much, much more! 

Give us a call today! 



._, PROTECT YOURSELF... 

M DATASHIELD 

Surge Protector 

tlirnmales voiiage spines and t Mi Ht-i noise before It can 
damage your equipment or cause data loss 6- mo warranty 
Povwt dissipation 1 100 microseconds! 2.000.000 walls 
DESCRIPTION PRICE 




PART NO 



MODEL 75 
MODEL 85 
MODEL 100 
MODEL 110AMS 



4 Sockets. On/Off Switch 

6 Sockets. Super Fitters. On/Off Switch 

6 Sockets, Super Filters. Low Voltage Alarm, 
6 Sockets, Super Filters, Auto Master Switch. 



$49.95 
$59.95 
$6995 
$99 95 

DATA SHIELD BACK-UP POWER SOURCE also available Protect your Tandy 
computer from black outs, brown-outs, power surges and line noise 

PC200 (200 Watt Patina) $299.95 

XT300 (300 Watt Rating) $399 95 

AT800 (800 Watt Rating) $799.95 



1 10.00 Mnimum Order - US Funds Or*, 
Caktorma Residents Add 6jS Sales lai 
Shipping - Add 5% plus SI SO tawKt 
SmndSASE *v asOnlMy Sa*l Fir*'' 



Spec Sheets - 30* each 
Send Si 00 Postage lor your 
FPEE (985 JAMECO CATALOG 

Prices Subject to Chang* 



. 



J ameco 




1355 SHOREWAY ROAD, BELMONT. CA 94002 
Phone Orders Welcome (415) 5924097 Telex: 176043 



54 • 80 Micro, March 1985 



Listing 1 continued 








07040 




LD 


DE,DCB 




07050 




LD 


BC,9 




07060 




LDIR 






07070 




CALL 


DSAVE 




07080 




RET 






07090 


AUTILl 


DEFM 


'BASIC UTILl/BAS 


-F:0 -M:61439' 


07100 




DEFB 


0DH 




07110 


AUTIL2 


DEFM 


'BASIC UTIL2/BAS 


-F:0 -M:61439' 


07120 




DEFB 


0DH 




07138 


AUTIL3 


DEFM 


•BASIC UTIL3/BAS' 




07140 




DEFB 


0DH 




07150 


SAVE 


LD 


HL,3C00H 




07160 




LD 


DE.TEMPSC 




07170 




LD 


BC,1024 




07180 




LDIR 






07190 




RET 






07200 


SAVEP 


LD 


HL,3C00H 




07210 




LD 


DE, SCREEN 




07220 




LD 


BC.1024 




07230 




LDIR 






07240 




RET 






07250 


NEGATI 


LD 


HL,3C00H 




07260 




LD 


BC1024 




07270 


AGAIN 


LD 


A, (HL) 




07280 




CPL 






07290 




SET 


7, A 




07300 




RES 


6, A 




07310 




LD 


(HL) ,A 




07320 




INC 


HL 




07330 




DEC 


BC 




07340 




LD 


A,B 




07350 




OR 


C 




07360 




JP 


NZ, AGAIN 




07370 




RET 






07380 


RIGHT1 


LD 


A, 127 




07390 




LD 


(XX) ,A 




07400 




JP 


ALMOST 




07410 


LEFT1 


XOR 


A 




07420 




LD 


(XX) , A 




07430 




JP 


ALMOST 




07440 


D0WN1 


LD 


A, 47 




07450 




LD 


(YY) ,A 




07460 




JP 


ALMOST 




07470 


UP1 


XOR 


A 




07480 




LD 


(YY) ,A 




07490 




JP 


ALMOST 




07500 


DISK 


CALL 


002BH 




07510 




OR 


A 




07520 




JP 


Z,DISK 




07530 




CALL 


SAVE 




07540 




CP 


'S' 




07550 




JP 


Z , UHOH 




07560 




CP 


'L' 




07570 




JP 


Z,UHOH 




07588 




CP 


•c 




07590 




JP 


Z.DDIREC 




07600 




CP 


•0' 




07610 




JP 


Z,DD1 




07620 




LD 


A, (14400) 




07630 




CP 


4 




07640 




JP 


Z, BREAK 




07650 




JP 


DISK 




07660 


UH0H 


LD 


(TEMA) ,A 




07670 




LD 


B,23 




07680 




LD 


HL,DCB 




07 6 90 




CALL 


0040H 




07700 




JP 


C, BREAK 




07710 




PUSH 


BC 




07720 




CALL 


LOAD 




07730 




POP 


BC 




07740 




LD 


HL,DCB 




07750 




LD 


CfB 




07760 




LD 


B,0 




07770 




ADD 


HL,BC 




07780 




CALL 


EXT ENS 




077 90 




LD 


HL,3C00H 




07800 




LD 


A, (TEMA) 




07810 




CP 


83 




07 820 




JP 


Z, DSAVE 




07830 




CP 


76 




07 840 




JP 


Z,DL0AD 




07 850 




RET 






07860 


LOAD 


LD 


HL,TEMPSC 




07 87 




LD 


DE,3C00H 




07 880 




LD 


BC1024 




07 890 




LDIR 






07900 




RET 






07910 


LDTORP 


CALL 


2BH 




07920 




OR 


A 




07930 




JP 


Z, LDTORP 




07940 




CP 


i t i 




07950 




JP 


Z , LOAD 




07 960 




CP 


• pi 




07970 




JP 


Z , LOADP 




07980 




LD 


A, (14400) 




07 990 




CP 


4 


Listing 1 continued 



Circle 204 on Reader Service card. 




kCount 

e*fa*fe WHERE 

£M QUALTIY PROGRAMS 

Ml MEET COMPETITIVE PRICES 



FR€€SP€CMLS 



2701-C.W. 15th»SUlTE 324'PLANO, TX 75075-(214)680-8268 
All MOD III programs specified in this ad will run on the Model 4 (in the MOD III mode). 

WE WILL NOT BE UNDERSOLD! 




Order over $1 00 or more and select one of the 
following#MELTDOWN»VOYAGE OF THE 
VALKYR)E»MASTER DIRECTORY "THE GREEN WINDOW 
Order over $200 and select one of the following 
CLEAN SLATE* PROPIX«GAME PAK 3* 
AOS UTILITIES»SUPERKEYS 



BBS-80 

fy MaoSystems So We 



RUN YOUR OWN 
J BULLETIN BOARD 



fan canw Datrts a ™*Trrtf<*iins twfl SBSrSl a*ws i 
TBSOfi n enJungp mesarjE at rtrjrmjitx «d it* \Mftov Atess c* 1 » 
m0*ft. xtii vv$* ra > "ii <M jws or hrrwec ra aw aWvMK 
P8SW c*i ■ .v messagn on wort* wmn» aing *s a <3t*S flecffonc 
rianr BttSflO Qtortte ot* of M "teei rAanrM and mra converwn 

IttUpS PW i : r 1 1 i '>>' ■ 3 "■TOrarTBUlB h*I*l -i.y SYSIjm i ■ ,: i 1. 

Ittps ma> lerfl p/rvaie «*SHrjes ifiai "* Qe -Ml arfv h ffe mesa 
*Mb*«t wswp 94PM1 *w. « w 1% «•» O *u*t r W «e 
-r&swe&s* rt ^'WKTwnoalja'aWse 96S**1 rffrwrWcs earl) 
rtp|ej jM sj»j jtje wTTwtt nfcunnw iau -. *: e» *'." last message 
■■■ -v C hi; .-/.;-'. r . i\.s- tfie oasawtrls SB* v. ■* •■*' 
or tjisnw »a anrj rrajro files tc 3B&80 These prarjarrrs «» w * 
XW«.rtr -o mp ff&W users H&% « stf rrarnanrq Weagt 
..i - $ i ■ r ,'■- :--\ WatTK mi- <-.-i>- are rXWffl 
MOD I a «i 



OPERATING SYSTEMS 

CP/M 2.2 Montezuma Mod 4 169.95 

R-Shack HD Driver for CP/M 2.2 ... . 39.95 
Oosplus II 11/12/16 (Z-60) 194.95 



WORD PROCESSORS & 
PRINTER DRIVERS 

Electric Pencil 2.0z l/lll 79.95 

M-Script l/IH/4 53.50 



Dosplus 4A With M-ZAL 114.95 LeScrtpt l/IH/4/Max 104.95 

Oosplus 3.5 l/lll 50.00 Clean Slate l/lll 49.95 

Dosplus 3.3 Mod I S or DO 29.95 Electric Webster (specify) 119.95 

Multidos 1.6 l/lll 59.95 Grammar a Style (specify) 39.95 



Multidos Mod 4 79.95 




Hyphenation Opt. (specify) 39.95 

PowerDriver-E Epson I/III/4 29.95 

PowerDriver-P Prowriter I/III/4 29.95 

PowerOriver-S Starwriter l/IH/4 29.95 

PowerOriver-0 Okidata 92 l/IH/4 29.95 

PowerOriver-FX (FX/RX) l/IH/* 29.95 

Epson Driver Compiler 29.95 

PowerScript for Scripsit l/IH/4 34.95 



APPLICATIONS 

Survey Analyst 195.00 

Superlog l/HI/4 114.95 

Masterdirectory Mod III 29.95 

Superdirectory Mod l/lll 44.95 

Datagraph l/lll/4/Max 69.99 

Datagraph Pie Chart Option 29.95 

EE Ladder Network l/lll 39.95 

EE Ladder Network Tape 29.95 

The Basic Checkbook l/lll 64.95 

Mterm l/IH/4 59.50 

Loan Amortization HI 29.95 

PowerMail Plus l/IH/4 124.95 

Text-Merge for Powermail • 49.95 



you re Md of fu pesem «dop was of bano, •a tele w 
msimcioB an) tied of its non-ototessonalism you need ite f BN 
Genera ledger 

NMiote Ca^i "nairei Departr-eTtaim any acaurt >% 
select whicJi accounts print on rcrjme S Balance sheet Real 
tune transaction posting, no more Mtchng processinj total 
auto trail We have *ret »w believe to be the Irest general ledger 
to ihe Mod* HI on the market Call to more details or order now 
A most pleasant surprise 1 

REDUCED TO 149.95 



ELECTRIC WEBSTER | 

Ot Camaapa Software 



149 95Sav«20% 



Revtfwed as rhe best proofreader and spelling checker on the 
market Works with SCRIPSIT LAZV WHITER ELECTRIC PENCIL 
ZORlOFf NfWSCRIPT COPYART. art ACORN'S SUPfRSCRIP 
SIT Sold wth correcting feature to 149 95 

OUR PRICE 119.95 

HYPHENATION OPTION" 39.95 

GRAMMER & STYLE CHECKER* 39 95 
MQO l/IUflV 

"Note ruprenation & grammer options are rut available tor all word 
processors Ask when ordering 



GRAPHIC GAMES AND 
SIMULATIONS 

Voyage of the Valkyrie l/lll 29.95 

Descriptive Statistics Cass 20.99 Voyage of the Valkyrie Tape 19.95 

The Home Accountant III 62.50 Meltdown (Nuclear Powerplant) 19.95 . fl(C _ 

Electronics I l/lll Cass 20.99 Gamepak-3 (Funface, Match, etc). . . 29.95 BOOKS, WALL CHAR I & St Mi&U 



Electronics II l/lll Cass 20.99 Pro-Pix USFL or NFL Version 29.95 

Electronics III l/lll Cass 20.99 

Active Filter Design l/lll Cass 20.99 

Mostly Basic Scientific Cass 14.99 

Mostly Basic Educational Cass 14.99 

Mostly Basic Household Cass 14.99 

ICS Professional l/lll 148.00 

BBS-80 Bulletin Board l/lll 74.99 

Infoscan l/lll (Keyword D-Base) 44.95 

Ultraterm l/lll 39.95 

VHtfaterm 2.0 w/auto-logon 49.95 

TallyMaster 69.95 

The Test Generator Mod III 34.95 .,_ - - • - 

SPS Sutistical Analysis Mod 1 150.00 ^3 ' nclud .fs Operators Manual 

_3?* f,, * and 2nd Backup-Disk 



| SUPER UTILITY PLUS 
VERSION 3.2 

I By Powersoft 



s*i_t 

'M MOD 4 Vernon Now Avails 



NEW SUPER UTILITY + 
VERSION 3.2 



| THE HOME ACCOUNTAh 

i Cairental Software 



An Outstanding 



•IMMM up to 100 budget cajegpres' tops tract of up to me 
checktjooks-Pnrtts checks il dB>ed*Pms a personal caarte 
statemEnt rrxme and entree summary -Pins net worth state 
mew •Provides fast bar* rermttaon'Alows the extensions on 
truincte ostatwOre pracram fade tash. tJeofiocte a«* 
cards and other kaWrtes and e«ases*Urkrmed amd iransac- 
tens feral or slender year- "larsacrons mty be spkt among 
ditterent budget categories-flags transactions lor ta> put 
poses'Marttafs transacnon nBtory-Prondes H.Res grapttcs tar 
any category by bar graph 

The prrnram itseH does UB about everytKng youd ask of a 
personal finance package -Pop* Computng. November I982 
MOO III 



The Eiook Inside SU+ 3.2 

NOW ONLY 17.95 

Experience a legend with the 

program voted as the outstanding 

utility of 1982 and 1983 

MOD I or MOO ill Protected Media 



Inside Super Utiltiy 3.0/3.2 17.95 

Super Utility Tech Manual 3.x 13.95 

TRS-SO Encyclopedia l/IH/4 19.95 

TRS-80/Z-80 Assembly Library 31.95 

trs-80 Disk 4 Other Mysteries 19.95 

The Custom TRS-80 a Other Myst . . 26.95 

Microsoft Basic Decoded 26.95 

Machine Language Disk I/O 26.95 

Basic Disk I/O ft Other Myst 26.95 

How To Do It On The TRS-80 26.95 

TRSDOS 2.3 Decoded ft Other My» . 26.95 

Basic Faster ft Better 26.95 

BFB Library Disk l/lll 16.95 

BFB Demo Disk (/III 16.95 

TRSDOS 6/LDOS Programmers 

Guide 18.95 

Green Screens I/H/III/4/4P 16.95 

Diskettes SSDD 10 in Plastic Bx 19.95 

Profile 3+ Commands Wall Chart* — 4.00 

Visicalc Commands Wall Chart* 4.00 

Superscripsit Wall Chart' 4.00 

Model III Basic Wall Chart* 4.00 

Model 4 Basic Wall Chart' 4.00 

* Charts not shipped as separate order 



UTILITIES 

Super-Utility Plus 3.2 l/IH/4 62.50 

SuperUtility Plus 4/4P 79.95 

TextPress l/lll (ASCII Camp.) 49.95 

Ale Editor/Assembler l/lll 38.95 

The Toolbox for LDOS 44.95 

LC Compiler/EDAS l/lll or 4 139.99 

ALCOR C Language Compiler 139.00 

ALCOR Editor l/HI 49.00 

ALCOR Advanced Development 

Pkg 69.00 

ALCOR C Complete System 245.00 

ALCOR Pascal Cross Reference — 29.00 
ALCOR Multi-Processor Assemblr . . 69.00 
AOS Superkeys Key Macros Mod 

III 35.00 

6.X Ptus. (Enhance TRSDOS 6.X). . . . 36.95 

The Toolbar! Mod 4 44.95 

AOS Utils +1 Varkeep/Scmpkr 49-95 

Impakt for Basic l/lll 34.95 

Pro-Cess Mod 4 37.95 

Pro-Create Mod 4 94.95 

Pro-Cure Mod 4 4695 

Pro-Duce Mod 4 34.00 

Pro-Pads Mod 4 37.95 

Enigma Encryption Utility 34.95 

Basic-S Compiler System 34.95 

M-ZAL Release 3 Mod l/lll 74.95 

Zues Editor/Assembler l/IH/4 74.95 

Master Mechanics Set for LDOS .... 24.99 

E-Basic (specify DOS) 49.95 

System Diagnostic l/HI/4 69.99 

Bas34 (Mod III to 4 Convert) , . 44.95 

Hypercross/XT TRSDOS/CP-M/ 

MSDOS 79.95 

Trashman 32.50 

Faster 22.95 

RPM 21.50 

DSMBLR HI l/lll 34.50 

Accel 3/4 Basic Compiler l/lll 94.95 

Monitor 5 l/IH/4 22.95 

Hyperzap Disk Utility l/IH/4 49.95 



HYPERCROSS/XT 

8yHypersfltt 



COPY YOUR FILES TO/FROM 

TRSDOS MSDOS -CP/M 

SPECIFY MOO I DD. III. or 4 



« NfW ait OursHNOKG IBBOMgMMW mw i»*n l 
uncross «rf«uin«riiW trtsflODOSioa*«.ioiioo™»Bm» 
'tioKTroi IRStO 'He Worn conranS «e uarec 
'0KMA: D* Ml COP* USfBiCPVl Slid HCiPand IXlt HfiP 
Aspws a arrwv no o* cwtwiJs liA "KAj »«r Iflfl RCROSS V 
srtieWK' pro?*" •*««■> » •" sain <mm; Ai-s swnt 

H iPCi MSOOS I : WwiaimmiBlHtoMIMtmiCr 
Mi MDVM* «aSS M*1R« «£dSS I *»!0S »'* 80fX CCS 
CHOWMCO DSCv7l80«Oe»i CKCBAMBlMi FAGlf EPSON HOWA 
GRAPHICS BEACON MPITb 8MCPV* WvPRO 1 4 AW HI [Ntt 

m&v, UROHMffl vww» w:<t«i« oaco* bwm 

SAN<0 SOCOMPIJIERS SUPfPffWi TiiETEii SvSIEMMASIER Ifl 
(VWO IRSWliniBOAl OMCTON KXMES HURRICANE muSHU' 
HIEOAROi MONIf/UMA 22 RS CPM • WR0« 2ENI1HHEAIM 
AIRBA AiSOa'CPVSun)WiJ'r#«s 



GRAPHICS 

Powerdraw l/lll 34.95 

Dotwrtter 4.0 l/lll/w LDS 84.95 

Qotwrittf 4.0 4/4p(w LOS W.95 

Graphit (Line Graphing) 34.95 

PlottJng Graphs Printer Cass 20.99 

Plotting Graphs Video Caaa 20.99 

AOS Utils. Screenpacker Plus 49.95 

PowerOot II l/lll Spec. Printer 54.95 



INSTRUCTIONAL VIDEO TAPES 

VHS/BETA 

Profile III Plus 36.99 

SuperScripsit 36.99 

Lazy Writer 36.99 

Newdos-80 36.99 

Scripsit 36.99 

TRSDOS 13 (Mod Ml) 3699 

TRSDOS 6 (Mod 4) 36.99 

TRSDOS 6 Disk I/O (Mod 4) 36.99 

TRSDOS 1.3 Disk I/O (Mod III) 36.99 

Multidos 36.99 

Dosplus 36.99 

LDOS 5.(x) 36.99 

VtafCalc 36.99 

CP/M 2.2 Montezuma (Mod 4) 36.99 

Multiplan (Mod 4) 36.99 

PFS File (Mod 4) 36.99 

Mod I Level II Basic 46.99 

Model III Basic 46.99 



J^skCount 



214-680-8268 



Send Cash, Check or Money Order 

Please add $3.00 for postage and handling, additional $2.00 for C.O.D.s. 

Foreign orders welcome, please specify air or surface 

All shipping charges assumed by purchaser. 

When ordering by mail, please specify computer model number 

Phone Your Order In Today Or Mail To: 

DISKCOUNT DATA, 2701 -C W. 15th St. Suite 324, Piano, TX 75075 



and 



■55™ Cheerfully Accepted 



80 Micro, March 1985 • 55 



Listing 1 continued 
























08950 


LDIR 




09900 


LD 


BC,8 


08000 


JP 


NZ,LDTORP 


08960 


LD 


HL,CBUFF 


09910 


LDIR 




08010 


CALL 


SAVE 


08970 


LD 


BC,0 


09920 


LD 


BC,9500 


08020 


JP 


BREAK 


08980 


CALL 


4290H 


09930 


CALL 


WASTE 


8030 LOADP 


LD 


HL, SCREEN 


8990 DD2 


PUSH 


HL 


09940 


JP 


POPHRT 


08040 


LD 


DE,3C00H 


09000 


CALL 


CLS 


09950 DDUP 


PUSH 


HL 


08050 


LD 


BC.1024 


09010 


POP 


HL 


09960 


LD 


DE,64 


08060 


LDIR 




09020 DDLOOP 


PUSH 


HL 


09970 


OR 


A 


08070 


JP 


CLRRET 


09030 


POP 


IX 


09980 


SBC 


HL,DE 


80 80 RND 


LD 


HL,3C00H 


09040 


LD 


BC,0FFFFH 


09990 DDUP2 


:,d 


A,H 


80 90 


LD 


BC1024 


09050 


CALL 


SEARCH 


10000 


CP 


3CH 


08100 HELLO 


LD 


D,127 


09060 


LD 


A,(HL) 


10010 


JP 


CDDUP1 


08110 


LD 


A,R 


09070 


CP 


•G' 


10020 DDUP3 


I.D 


A, (HL) 


08120 MIKE 


INC 


D 


90 80 


JP 


NZ, DDNEXT 


10030 


CP 


80H 


08130 


SUB 


4 


90 90 


INC 


HL 


10040 


JP 


Z,DDUP1 


08140 


JP 


P,MIKE 


09100 


LD 


A,(HL) 


10050 


POP 


DE 


8150 


LD 


(HL) ,D 


09110 


CP 


'R' 


10060 


RET 




08160 


INC 


HL 


09120 


JP 


NZ, DDNEXT 


10070 DDUP1 


JP 


POPHRT 


08170 


DEC 


BC 


09130 


INC 


HL 


100 80 DDDOWN 


PUSH 


HL 


8180 


LD 


A,B 


09140 


LD 


A,(HL) 


10090 


LD 


DE,6 4 


8190 


OR 


C 


09150 


CP 


•A' 


10100 


ADD 


HL,DE 


08200 


JR 


NZ, HELLO 


09160 


JP 


NZ, DDNEXT 


10110 DDOWN1 


:,d 


A,H 


08210 


RET 




09170 


PUSH 


IX 


10120 


CP 


40H 


08220 LDFRST 


LD 


DE,DCB 


09180 


POP 


HL 


10130 


jp 


NCDDUP1 


08230 


LD 


BC f 24 


9190 


LD 


A, (DDSCRE) 


10140 


jp 


DDUP3 


08240 


LDIR 




09200 


LD 


E,A 


10150 DDLEFT 


PUSH 


HL 


08250 


CALL 


SAVE 


09210 


LD 


A, (DDSCRE+1) 


10160 


LD 


DE,16 


08260 


LD 


HL, BUFFS 


09220 


LD 


D,A 


10170 


OR 


A 


08270 


CALL 


DLOAD 


09230 


LDIR 




10180 


SBC 


HL,DE 


82 80 


OR 


A 


09240 


LD 


HL, (DDSCRE) 


10190 


JP 


DDUP2 


82 90 


JP 


NZ.LDFR1 


09250 


LD 


DE,16 


10200 DDRITE 


PUSH 


HL 


08300 


RET 




09260 


ADD 


HL,DE 


10210 


LD 


DE,16 


08310 LDFR1 


POP 


HL 


09270 


LD 


(DDSCRE) ,HL 


10220 


ADD 


HL,DE 


08320 


JP 


BFRE 


92 80 


LD 


A,(DDCOUN) 


10230 


JP 


DDOWNl 


8330 DSAVE 


LD 


DE,DCB 


09290 


INC 


A 


10240 DDFOUN 


I.D 


DE,DCB 


08340 


LD 


HL, BUFFER 


09300 


LD 


(DDCOUN) ,A 


10250 


LD 


BC,10 


08350 


LD 


BC,0 


09310 DDNEXT 


LD 


A,(IX+22) 


10260 


LDIR 




08360 


CALL 


4420H 


09320 


CP 


' +' 


10270 


LD 


HL,DCB 


08370 


OR 


A 


09330 


JP 


Z, DDEND 


10280 DDFLOP 


LD 


A, (HL) 


83 80 


JP 


NZ, DERRl 


09340 


CP 


•A' 


10290 


INC 


HL 


83 90 


LD 


HL,3C00H 


09350 


JP 


C, DDEND 


10300 


CP 


80H 


08400 


CALL 


DSAVE1 


09360 


CP 


'Z'+l 


10310 


JP 


NZ, DDFLOP 


08410 


LD 


HL, 15616 


09370 


JP 


NC, DDEND 


10320 


DEC 


HL 


08420 


CALL 


DSAVE1 


09380 


PUSH 


IX 


10330 


CALL 


EXTENS 


08430 


LD 


HL, 15872 


09390 


POP 


HL 


10340 


LD 


HL,3C00H 


08440 


CALL 


DSAVE1 


09400 


I.D 


DE,21 


10350 


I.D 


(DDSCRE) ,HL 


08450 


LD 


HL, 16128 


09410 


ADD 


HL,DE 


10360 


XOR 


A 


08460 


CALL 


DSAVE1 


09420 


LD 


D,0 


10370 


LD 


(DDCOUN) ,A 


08470 


LD 


DE,DCB 


09430 


LD 


A, (TEMA) 


10380 


JP 


DLOAD 


84 80 


CALL 


4428H 


09440 


LD 


E,A 


10390 EXTENS 


LD 


(HL),'/' 


84 90 


JP 


CLRRET 


09450 


ADD 


HL,DE 


10400 


INC 


HL 


08500 DSAVE1 


LD 


DE, BUFFER 


09460 


XOR 


A 


10410 


;.d 


(HL) ,'G' 


08510 


LD 


BC,256 


09470 


LD 


(TEMA) ,A 


10420 


I NC 


HL 


08520 


LDIR 




94 80 


JP 


DDLOOP 


10430 


LD 


(HL) ,'R' 


8530 


LD 


DE,DCB 


94 90 DDEND 


LD 


HL,3C00H 


10440 


INC 


HL 


08540 


CALL 


4439H 


09500 


LD 


(DDSCRE) ,HL 


10450 


I.D 


(HL) ,'A' 


08550 


OR 


A 


09510 


LD 


A, (DDCOUN) 


10460 


INC 


HL 


08560 


JP 


HZ, DERR 


09520 


OR 


A 


10470 


LD 


(HL) ,0DH 


08570 


RET 




09530 


JP 


Z , LOAD 


10480 


RET 




85 80 DERR 


POP 


HL 


09540 DDFIND 


CALL 


FLASH 


10490 DDEND1 


POP 


HL 


85 90 DERRl 


PUSH 


AF 


09550 


LD 


A, (14400) 


10500 


JP 


BREAK 


08600 


CALL 


LOAD 


09560 


OR 


A 


10510 SEARCH 


i.D 


A, (HL) 


08610 


JP 


POPART 


09570 


JP 


Z, DDFIND 


10520 


INC 


HL 


8620 DLOAD 


LD 


(WORD1) ,HL 


09580 


CP 


4 


10530 


INC 


BC 


08630 


LD 


HL, BUFFER 


95 90 


CALL 


Z,DDEND1 


10540 


CP 




08640 


LD 


DE,DCB 


09600 


CP 


8 


10550 


JP 


NZ, SEARCH 


8650 


LD 


BC,0 


09610 


CALL 


Z,DDUP 


10560 


;,d 


DE,4 


08660 


CALL 


4424H 


09620 


CP 


16 


10570 


OR 


A 


08670 


OR 


A 


09630 


CALL 


Z , DDDOWN 


10580 


SBC 


HL,DE 


86 80 


JP 


NZ, DERRl 


9640 


CP 


32 


10590 


PUSH 


HL 


86 90 


LD 


HL,(WORDl) 


09650 


CALL 


Z,DDLEFT 


10600 


PUSH 


BC 


08700 


DEC 


H 


09660 


CP 


64 


10610 


POP 


HL 


8710 


LD 


(WORD1) ,HL 


09670 


CALL 


Z,DDRITE 


10620 


OR 


A 


08720 


LD 


B,4 


96 80 


CP 


1 


10630 


SBC 


HL,DE 


08730 DLl 


PUSH 


BC 


096 90 


JP 


Z,DDFOUN 


10640 


PUSH 


HL 


08740 


LD 


DE,DCB 


09700 


JP 


DDFIND 


10650 


POP 


BC 


87 50 


CALL 


4436H 


09710 ADCAT 


DEFM 


'Please wait 


10660 


POP 


HL 


08760 


OR 


A 


a moment' 






10670 


DEC 


HL 


08770 


JP 


NZ,DERR 


09720 ADCAT1 


DEFW 


S-ADCAT 


106 80 


LD 


A,(HL) 

V 

Z, DDFSET 


87 80 


LD 


HL, BUFFER 


09730 FLASH 


PUSH 


HL 


10690 


CP 


87 90 
08800 


LD 


DE,(WORDl) 


09740 


PUSH 


HL 


10700 


CALL 


INC 


D 


09750 


LD 


DE,CBUFF 


10710 


INC 


HL 


08810 


LD 


(WORD1) ,DE 


09760 


LD 


BC,8 


10720 


RET 




08820 
08830 


LD 


BC,256 


09770 


LDIR 




10730 DDFSET 


LD 


A,l 


LDIR 




097 80 


POP 


HL 


10740 


LD 


(TEMA) ,A 


08840 


POP 


BC 


097 90 


PUSH 


HL 


10750 


RET 




08850 


DJNZ 


DLl 


09800 


POP 


DE 


10760 UP 


LD 


A, (YY) 


08860 


LD 


DE,DCB 


09810 


INC 


DE 


10770 


DEC 


A 


08870 


CALL 


4428H 


09820 


LD 


(HL) ,80H 


107 80 


LD 


(YY) ,A 


08880 


JP 


CLRRET 


09830 


LD 


BC,7 


107 90 


CP 


-1 


8890 DD1 


LD 


HL,CBUFF 


09840 


LDIR 




10800 


JP 


Z,LEFT 


08900 


JP 


DD2 


09850 


LD 


BC, 10000 


10810 


JP 


ALMOST 


08910 DDIREC 


CALL 


CLS 


09860 


CALL 


WASTE 


10 820 DOWN 


I.D 


A, (YY) 


08920 


LD 


HL,ADCAT 


09870 


POP 


DE 


10830 


INC 


A 


08930 


LD 


DE, 15880 


09880 


PUSH 


DE 


10840 


LD 


(YY) ,A 


08940 


LD 


BC,(ADCAT1) 


09890 


LD 


HL,CBUFF 






Listing 1 continued 



56 • 80 Micro, March 1985 



Circle 406 on Reader Service card 



Lafing I continued 






11800 




LD 


D,0 


10850 


CP 


48 


11810 




SRL 


E 


10860 


JP 


Z, RIGHT 


11820 




JP 


NC, THORT 


10870 


JP 


ALMOST 


11830 




INC 


C 


10880 LEFT 


LD 


A, (XX) 


11840 


THORT 


ADD 


HL,DE 


10890 


DEC 


A 


11850 




LD 


DE,3C00H 


10900 


LO 


(XX) ,A 


11860 




ADD 


HL,DE 


10910 


CP 


-1 


11870 




SLA 


C 


10920 


JP 


Z,UP 


11880 




SLA 


C 


10930 


JP 


ALMOST 


11890 




SLA 


C 


10940 RIGHT 


LD 


A, (XX) 


11900 




LD 


A, (BYTE+1) 


10950 


INC 


A 


11910 




ADD 


A,C 


10960 


LD 


(XX) , A 


11920 




LD 


(BYTE+1) ,A 


10970 


CP 


128 


11930 




BIT 


7,(HL) 


10980 


JP 


Z,DOWN 


11940 




JP 


Z, CHANGE 


10990 


JP 


ALMOST 


11950 


BYTE 


DEFB 


0CBH 


11000 NW 


LD 


HL,XX 


11960 




DEFB 





11010 


DEC 


(HL) 


11970 




RET 




11020 


LD 


HL,YY 


11960 


WAIT 


LD 


BC, (HOWFAS) 


11030 


DEC 


(HL) 


11990 




CALL 


WASTE 


11040 


JP 


ALMOST 


12000 




RET 




11050 SW 


LD 


HL,XX 


12010 


WASTE 


DEC 


BC 


11060 


DEC 


(HL) 


12020 




LD 


A,B 


11070 


LD 


HL,YY 


12030 




OR 


C 


11080 


INC 


(HL) 


12040 




JP 


NZ, WASTE 


11090 


JP 


ALMOST 


12050 




RET 




11100 NE 


LD 


HL,XX 


12060 


BUFFER 


DEFS 


256 


11110 


INC 


(HL) 


12070 


DCB 


DEFS 


51 


11120 


LD 


HL,YY 


12080 


SCREEN 


DEFS 


1024 


11130 


DEC 


(HL) 


12090 


TEHPSC 


DEFS 


1024 


11140 


JP 


ALMOST 


12100 


XX 


DEFB 


61 


11150 SE 


LD 


HL,XX 


12110 


YY 


DEFB 


21 


11160 


INC 


(HL) 


12120 


BB 


DEFB 


2 


11170 


LD 


HL,YY 


12130 


XI 


DEFB 


255 


11180 


INC 


(HL) 


12140 


Yl 


DEFB 


255 


11190 ALMOST 


LD 


A, (XX) 


12150 


DY 


DEFVJ 





11200 


CP 


254 


12160 


DX 


DEFW 





11210 


JP 


NC,RIGHT1 


12170 


WORD1 


DEFW 





11220 


CP 


128 


12180 


WORD 2 


DEFW 





11230 


JP 


NCLEFT1 


12190 


WORD3 


DEFW 





11240 


LD 


A r (YY) 


12200 


WORD4 


DEFW 





11250 


CP 


254 


12210 


LI10DE 


DEFB 





11260 


JP 


NC,DOWNl 


12220 


BKBUFF 


DEFS 


128 


11270 


CP 


48 


12230 


CBUFF 


DEFS 


1761 


11280 


JP 


NC,(JP1 


12240 


DDSCRE 


DEFW 


3C0OH 


11290 


LD 


A,(YY) 


12250 


DDCOUN 


DEFW 





11300 


LD 


D,A 


12260 


TEMPIC 


DEFM 


'TEMP/GRA' 


11310 


LD 


A, (XX) 


12270 




DEPB 


0DH 


11320 


LD 


E,A 


12280 


HOWFAS 


DEFW 


1001 


11330 


LD 


A,(BB) 


12290 


BUFFS 


DEFM 




11340 


DEC 


A 


12300 




DEFM 




11350 


JP 


Z,SETRE 


12310 




DEFM 




11360 


DEC 


A 


12320 




DEFM 




11370 


JP 


Z, RERES 


12330 




DEFM 




11380 


PUSH 


AF 


12340 




DEFM 




11390 


CALL 


TEST 


12350 




DEFM 




11400 


PUSH 


AF 


12360 




DEFM 




11410 


LD 


A, (XX) 


12370 




DEFM 


•titttiitttisjjir 1 

■===EGv: :::::::::' 


11420 


LD 


E,A 


123 80 




DEFM 


11430 
11440 


LD 
LD 


A,(YY) 
D,A 


12390 
12400 




DEFM 
DEFM 


' :y»====gJ:bY==y: ' 
': jVFfN:: ::::::::' 
•::::::::::T»:::j- 
' vvJ: :-w: ::::::::' 


11450 


POP 


BC 


12410 




DEFM 


11460 


POP 


AF 


12420 




DEFM 


11470 


DEC 


A 


12430 




DEFM 


' :y: :yA: ZYbY; : rA: ' 


11480 


JP 


NZ,KEEP3 


12440 




DEFM 


' x ;:: dO :::::::::: ' 


11490 


PUSH 


BC 


12450 




DEFM 


':::::::::T:::tyy' 

'yyyyyyQ===En: : : : ■ 

' :y: :Z jVAZX?:bQ: j ' 


115 


POP 


AF 


12460 




DEFM 


11510 


JP 


Z, RERES 


12470 




DEFM 


11520 


JP 


SETRE 


12480 




DEFM 


11530 KEEP3 


PUSH 


BC 


12490 




DEFM 


■yyyyyyO:dy: <w:rA' 


11540 


POP 


AF 


12500 




DEFM 


11550 


JP 


Z, SETRE 


12510 




DEFM 


'=y: :tO:rA: :BIFFI' 


11560 


JP 


RERES 


12520 




DEFM 




11570 SETRE 


CALL 


SET 


12530 




DEFM 


'IlllliO:: :: :EY; : ■ 


11580 


JP 


WAIT 


12540 




DEFM 


11590 RERES 


CALL 


RESET 


12550 




DEFM 




11600 


JP 


WAIT 


12560 




DEFM 


11610 RESET 


LD 


A,86H 


12570 




DEFM 


':::::::: :DN: :<EI' 


11620 


JP 


STORE 


12580 




DEFM 


"FFf : :dO: :bn: : : :Z' 


11630 SET 


LD 


A,0C6H 


12590 




DEFM 


'xn:Cyy: : : : vFfN: : ' 


11640 


JP 


STORE 


12600 
12610 




DEFM 
DEFM 




11650 TEST 


LD 


A,46H 




' : :d: :dO: :dY; : :Zr ' 


11660 STORE 


LD 


(BYTE+1) ,A 


12620 




DEFM 


11670 


LD 


A,D 


12630 




DEFM 


■Fn::<Q: : jX;::Enj' 
' J :: En ::::::::::: ' 


116 80 


LD 


B,-l 


12640 




DEFM 


116 90 LOOP5 


INC 


B 


12650 




DEFM 




11700 


SUB 


3 


12660 




DEFM 




11710 


JP 


NC, LOOPS 


12678 




DEFM 


' :e: :Q=*=; ::::::<> 


11720 


ADD 


A, 3 


126 80 




DEFM 




11730 


SLA 


A 


126 90 




DEFM 


' : : :VFFFFFFFFFFFF' 


11740 


LD 


C,A 


12700 




DEFM 


'FFFFFFFFFFFFFFFF' 


11750 


LD 


L,B 


12710 




DEFM 


'FH: :GFFFFFFFFFFF' 


11760 


LD 


H,0 

B,6 


12720 
12730 




DEFM 
DEFM 




11770 


LD 




' :::0:FFFFFFFFFFF' 


117 80 LOOP6 


ADD 


HL.HL 


12740 




DEFM 


'FFFFFFFFFFFFFFFF' 


11790 


DJNZ 


LOOP 6 








Listing I continued on p. SO 



WANTED 

Scrips it™ or J 
SuperScripsit 
Users ... ^^ 

Now you can use that labulous word 
processor trom Radio Shack with 
your non-Tandy printer 1 No point in 
missing out! Your printer CAN work 
great with SuperScripsit"" 1 



PowerDRIVER 



These primers are fully supported 



EPSON MX-80/100 Series 
EPSON FX/RX 80/100 Series 
Most all EPSON "compatibles." 
C.ltoh 8510 Prowriter 
C.ltoh Starwriter Daisy Wheel 
C.ltoh A10-20 Daisy Wheel 
Okidata 92/93 Dot Matrix 



Model 4 Now Supported 1 

AH features ot Super'"-' I re sup- 

ported lo the fullest capabilities ot the 
punter involved Dnvers are easy to install 
use ana no extra commands lo 

PowerDRIVER Only $29 95 each 

PLEASE SPECIFY PRINTER TYPE 



s 



PowerSCRIPT 



A HIGH-POWER modification 
tor Scnpsit" from Radio Shack" 

f Full Power* PowerSCRIPT 
iS a modification for the original Scnpsit/LC" 
which allows it lo work on Model I or III 
and gives it the power ol many ol the 
•xpensive word processors Deline 
printer codes for ANY printer Embed print- 
les m the middle of a line 1 Alphabe- 
tized directories' User -definable printer 
User delmabie HELP-FILE' Chain 
tiles together at print time from any part of 
the text Logical EXIT to DOS optional 
automatic imeieed alter C/'R. FETCH 
CHAIN and KILL command and more' 
fible with most maior DOS S Simply 
use the enclosed INSTALL program and 
you will be up and running in NO TIME 1 
les full documeniation Gel lots ot 
new leature^- ' 



PowerSCRIPT 



Only $39.95 



r=~"~ 



TS trom BR£f 21 OsD i\ 



' I MX) Sltmmori F* 
Su.ta 125 

Dallas Te.ai 7S22-3 

l?14i 484 J976 



& 



ie 'iad«»rnjtKs, ol 16' Q 




80 Micro, March 1985 • 57 



UTILITY 



by Ken Schweim 



A La CRT 

Give your programs a professional look 
with these customized main menus. 



All menu-driven programs share 
some basic characteristics — 
i designs, keyboard input re- 
quirements, and input error checks. If 
you write Model 1/III/4 menu-driven 
programs, you know how repetitive 
constructing the subroutines for these 
elements can be. I've simplified these 
housekeeping routines so you can spend 
more time developing the logic for each 
application. 

Operator Input 

Figure 1 shows a sample menu from 
my program. I reserve the top line of the 
CRT screen for communications, which 
includes the operator's menu selection 
as wefl as prompt and error messages (see 
Fig. la). Program Listing 1 accepts all da- 
ta from the operator, and it has multiple 
entry points. The program receives key- 
board input as an INKEYS command, 
and it checks to make sure the entered 
character is one of the menu options. 

The subroutine performs three main 
tasks. First, line 20440 prints the prompt 
message WHICH? on the communica- 
tions line and waits for a single-charac- 
ter response. (This prompt message is in 
variable W$.) If you want a different 
prompt, initialize W$ with the desired 
prompt and enter the subroutine at 
20450. By merging Listing 1 with Pro- 
gram Listing 2, you can see how the 
subroutine works with a new prompt. 

The subroutine's second function is 
to accept the operator's menu choice. 
The value of variable L°7o determines 
the maximum number of characters the 
routine accepts. Whenever you enter the 
maximum number of characters, an exit 



System Requirements 



Models I and m 
Model 4 (with changes) 
16K RAM Cassette Bask 

32K RAM Disk Bask 

58 • 80 Micro, March 1985 



MM 



09£SS SPACE BAR FOR OPTIONS - ENTER TO SELECT - 



aaIn r©*J 


1 ACNE WHOLESALERS 1 
^^™ INVENTORV CONTROL ' 


SCREEN 11 



1(1) RANDOH INQUIRY 

(2) ADD RECORDS 

(3) UPDATE/DELETE 

(4) SALES 



(5) INCOMING SHIPMENTS 

(6) PRINT REPORTS 

(7) INITIAL FILE CREATE 

(8) QUIT 



Photo 1. Screen photo of a menu with numeric options. 



from the subroutine occurs automati- 
cally. The Input subroutine returns the 
expected response in variable Z$. 

My subroutine has a standard maxi- 
mum length of one character. However, 
you can use LVo to create an INKEYS 
routine loop that accepts more than one 
character. Initialize W$ with the prompt 
message and L% with the maximum 
length of the response, then enter the 
subroutine at line 20460. 

Listing l's third function is to check 



input for valid numeric data. If your 
response is to be numeric, initialize NU$ 
with N. This prohibits you from enter- 
ing any character other than 0-9 or a 
period. Merge Program Listing 3 with 
Listing 1 to see the subroutine work 
with a number-only response. 

The program also lets you use the 
backspace key for data entry, but it 
doesn't let you use keys not normally 
used in data entry, such as cursor con- 
trols or the clear key. 



®- 


WHICH? 


®- 


MAIN MENU 


ACME WHOLESALERS 


SCREEN #1 


& 


(1) RANI 

(2) ADD 

(3) UPDJ 

(4) SAL 


INVENTORY CONTROL 

DOM INQUIRY (5) INCOMING St 
RECORDS (6) PRINT REPOI 
VTE/DELETE (7) INITIAL FI1 
ES (8) QUIT 


1IPMENTS 

ITS 

,E CREATE 



Figure I. Sample menu, (a) The communications area, (b) Messages appear here; they seem to be outside 
the main screen, (c) The main body of the screen. 



MEGABYTES FOR MINI-BUCKS 



Circle 455 on Reader Service card 



AS SEEN AT THE RADIO SHACK 
COMPUTER SHOWCASES 



Model 1, 3, 4 Hard Drives 



5 Megabyte — 
10 Megabyte — 
15 Megabyte — 
30 Megabtye — 



Primary Secondary 

$ 795. $ 595. 

$1095. $ 895. 

$1295. $1095. 

$1895. $1695. 



(Model 1 add $50 ) 
TRS-80 Hard Disk Subsystem Features* 

* All sizes rated after formatting 

' TRS-80 Models 1.3.4, and 4P supported 

* Yourchoiceof DOSPLUS. LDOS. or TRSDOS6 x 
Software Drivers included 

* Newdos 80/Version 2 5 Systems available 

* Up to two secondary drives may be added 
' Error checking and correcting controller 

Buffered seek drives for improved access time 
Built in power up diagnostics 
' Drives use plated media for long disk life 

* Heavy duty power supply 
" Fan cooled 

' Gold connectors used throughout for high 
reliability 
1 year warranty 




Shop and come- SpBCHIWl has heen huildmg hard drive 

■1 thousands o' subsystems to satisfied 
'ully support TRS-80 Models 134 and AP 
Mil on available hard drive operating systems We us- I 
state-ot-the-ari d-ives and controllers Our drives all use bu'iered seek 
: :->ated rnedia to resin! ' urth the aver i :■ 

- drives Plated med>a results 
platter lite and high resistance to head crashers not round on coated media 
On<M V- instruction throughout including heaw duty 

• m and gold edge card connectors We tiarn rn,r 
1 1 anty and we'"' 
like rxii Jr.ve that vf oiler a thirty day money back guarantee So when it 
comes time to buy lookbeyonn" • >ose the best dr. ve Afler 

.in we are Ihe Mar 



HDS Multiplexer 
$1295. 



The HDS Multiplexer allows the useage of up to 4 
Model III or IV systems using Dosplus 3 5 LDOS. 
TRSDOS 6 x. and DOSPLUS IV on a HDS Hard 
Drive The standard package includes the Master 
Control Unit. Host Adapters for 2 Computers and 
40' of cable Each additional Host adapter add 
$150 Each additional foot of cable add $1 up to 
100 feet per computer 



Model 3/4 Boot Rom $39.95 

Allows you to boot directly from a HDS Hard Drive 
using DOSPLUS Versions available for useage 
with and without Multiplexer 



Tandy 1000, Tandy 
1200, IBM, Zenith, and 
Compaq Hard Drives 

10 Megabyte Internal $895. 
10 Megabyte External $1195. 
15 Megabyte External $1695. 
30 Megabyte External $2195. 

(secondary drives also available) 




UiUiif «^ 



HARD DRIVE SPECIALIST 



0'O»'">g inlormatior- 

use ou- Watts line to place you' o-de' v.a V sa Was-cCa-o o< vv nr 

>> Ma. i ,oi. pa/~ie"' a rectty to .t Any non-cerf'*d lurid I will 

' r-oti*' M.i;j"f. , made COD o'de's a>e accepter] as w«i 

• .!«• o'deri'iorri govcnment agencies Most 'lems are shipped o" 

•n» inc • * .i- )n« t.ceptior ?i ^fa d* it products that ft custom built 
a »ou' iia-idarrj ^ea^so' s" pong ,i-i«ss oih«rv,.se speo'ied 

Sh.pp.nq ovs at 1.11M upon r«q 



1-713-480-6000 

Order Line 1-800-231-6671 

16208 Hickory Knoll, 
Houston. Texas 77059 



Error Messages 

Program Listing 4 uses the communi- 
cations area of the screen to flash error 
messages of your choice. Variable E$ 
defines the message, and the subroutine 
flashes it five times. To use Listing 4, ini- 
tialize E$ with the desired message and a 
GOSUB 20840 command. By merging 
Program Listing 5 with Listing 4, you 
can see the technique in action. 

Screen Framing 

To make messages more visible, the 
program prints them on top of a frame, 
which makes them appear outside the 
normal screen area (see Fig. lb). Pro- 
gram Listing 6 creates this frame; you 
can change the frame's layout as you 
wish. To use the Frame subroutine, ini- 



tions line take up the top four lines of 
the screen, leaving 12 lines for the main 
body. The main body usually starts with 
a main menu, as in Fig. lc. 

Menu Selection Techniques 

The selection process usually deter- 
mines the physical layout of a menu 
screen. The menu in Photo 1 is prob- 
ably the most common type. One of the 
Selection routine's primary concerns is 
ease of operation. Program Listing 8 is 
a composite program incorporating the 
subroutines I've already described; it 
produces the screen shown in Photo 1 . 

In Listing 8, you select an option with 
one keystroke. (Remember the Input 
subroutine uses the INKEYS option; 
you don't need to press the enter key for 



You might prefer to have the alpha- 
betic character represent the actual first 
character of the entry, as in Photo 3. 
This requires a minor addition to the 
selection process as listed in Program 
Listing 10. Note statements 4200-4400. 
Be careful not to duplicate the first 
characters in the menu. 

The last selection method is selection 
by cursor movement (see Program List- 
ing 1 1); you press the space bar to move 
the cursor from entry to entry. 

The key to this routine is loading the 
screen address into an array and using 
the array subscript as the entry point. 
This menu selection technique requires 
more keystrokes; however, its advan- 
tages include ease of training and in- 
creased accuracy in entry selection. 



ACME WHOLESALERS 
INVENTORV CONTROL 



SCREEN II 



(A) RANDOM INQUIRY 

(B) ADD RECORDS 
(0 UPDATE/DELETE 
<D) SALES 

(E) RECEIPTS 



(F) PRINT REPORTS 

(G) RETURNED 600DS 
(H) PRINT CATALOG 

(I) INITIAL FILE CREATE 

*J) QUIT 



Photo 2. Screen photo of a menu with alphabetic options. 




Photo 3. Screen photo of a menu with first character options. 



tialize the variables in Table 1 and exe- 
cute a GOSUB 20130 command. Merge 
Program Listing 7 with Listing 6 to see 
my sample layout. 

Listing 6 combines standard code and 
graphics required to produce a standard 
frame at the top of each screen. In the 
upper left box, the current function is 
identified (F$). In the upper right box, 
the screen number is identified (S%). 
The screen number provides a clear ref- 
erence point for written documentation. 
The business name (B$) appears be- 
tween the boxes. The program name 
(P$) appears directly beneath the 
business name. 

You only have to initialize the busi- 
ness and program names at the start of 
the program; their values won't change. 
The framing area and the communica- 



Variable 


Definition 


FS 


Function name 


B$ 


Business name 


SWt 


Screen number 


P$ 


Program name 


Table. Variables used in Program Listing 6. 



single-character entries.) This, however, 
presents a problem if you have more 
than nine options. You'd have to enter 
two digits, which is unacceptable to the 
standard INKEYS. 

I've told you how to use loops to get 
around INKEYS' s preference for sin- 
gle-character input. Another alternative 
is to construct a menu with alphabetic 
options. The screen in Photo 2 is an ex- 
ample; notice that it has more entries 
than the screen in Photo 1. To use the 
alphabetics option, you can convert 
the alphabetic characters to numeric 
equivalents. 

Each alphabetic character has an 
ASCII value equal to its numeric posi- 
tion in the alphabet, plus 64. Therefore, 
by subtracting 64 from the ASCII value 
of the alphabetic character, you'll have 
A=l, B = 2, C = 3, and so on. The fol- 
lowing instruction accomplishes this: 



4200ONASC(Z$) 
5000,6000,7000. . . 



64 GOTO 



Program Listing 9 shows a complete 
menu preparation using the single 
alphabetic character for selection. This 
lets you select one of 26 options with a 
single keystroke. 



To make the most efficient use of the 
three subroutines (Listings 1, 4, and 6), 
I've stored them in a program called 
Skeleton (Program Listing 12). When- 
ever I write a menu-driven program, I 
merely load Skeleton into memory. 
Then 1 can devote more time to building 
the unique part of the application 
around the subroutines. 

Conversion 

All listings run without modification 
on the Models I and III. Listings 1-5 
and 7 run on the Model 4. With the mod- 
ifications shown in Fig. 2, the remaining 
listings also run on the Model 4. ■ 



Write to Ken Schweim at 436 Mound 
Ave., Mankato, MN 56001. 



Related Articles 

Miller, Doug. "The Screen Writer," November 

1984, p. 98. Creates Model I/III data input screens. 

Wilde, Tim. "Versatile Input," September 1980, p. 

98. Input Model I data with ease. 

Shuken, Bob. "Dexterous Data Entry," December 

1981, p. 280. Menu-generated Model I data entry 

routine. 



60 • 80 Micro, March 1985 







LISTING 6 






LISTING 


10 


20140 


PRINT 


@80, STRING$(80,140) ; 


2000 


PRINT 


§416," (R)ANDOM INQUIRY"; 


20150 


PRINT 


§186, CHR$(191) 




2020 


PRINT 


@447,"(I)NCOMING SHIPMENTS"; 


20160 


PRINT 


§212, CHR$(191) 




2040 


PRINT 


§496," (A) DD RECORDS"; 


20170 


PRINT 


§266, CHR$(191) 




2060 


PRINT 


§527," (P)RINT REPORTS"; 


20180 


PRINT 


§292, CHRS(191) 




2080 


PRINT 


§576," (U) PDATE/DELETE"; 


20190 


PRINT 


§320, STRING$(27,131) ; 


2100 


PRINT 


§607,"(F)ILE CREATE"; 


20200 


PRINT 


§372, STRINGS(28,131) ; 


2110 


PRINT 


§656," (S) ALES"; 


20220 


PRINT 


§168, F$; 


2120 


PRINT 


§6 87,"(Q)UIT"; 


20230 


PRINT 


§215, "SCREEN " ; S% ; 










20240 


PRINT 


§222, "#"; 










20260 


PRINT 


§189+((20-LEN(B$))/2) , B$; 






LISTING 


11 


20280 


PRINT 


§26 9+((20-LEN(P$))/2) , P$; 
















2000 


PRINT 


§416, "(1) 


RANDOM INQUIRY"; 






LISTING 8 


2020 


PRINT 


§447, "(5) 


INCOMING SHIPMENTS"; 






2040 


PRINT 


§496, "(2) 


ADD RECORDS"; 


2000 
2020 
2040 
2060 
2080 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


§416," (1) RANDOM INQUIRY"; 
§447," (5) INCOMING SHIPMENTS"; 
§496," (2) ADD RECORDS"; 
§527," (6) PRINT REPORTS"; 
§576," (3) UPDATE/DELETE"; 


2060 
2080 
2100 
2120 
2140 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


§527, "(6) 
§576, "(3) 
§607, "(7) 
§656, "(4) 
§6 87," (8) 


PRINT REPORTS"; 
UPDATE/DELETE" ; 
INITIAL FILE CREATE"; 
SALES"; 
QUIT"; 


2100 


PRINT 


§607, "(7) INITIAL FILE CREATE"; 










2120 


PRINT 


§656, "(4) SALES"; 










2140 


PRINT 


§6 87," (8) QUIT"; 






LISTING 


12 






LISTING 9 


20140 


PRINT 


§80, STRINGS( 80,140) ; 








20150 


PRINT 


§186, CHRS1191) 




2000 


PRINT 


§416, "(A) RANDOM INQUIRY"; 


20160 


PRINT 


§212, CHR$(191) 




2020 


PRINT 


§447, "(F) PRINT REPORTS "; 


20170 


PRINT 


§266, CHRS(191) 




2040 


PRINT 


§496," (B) ADD RECORDS"; 


20180 


PRINT 


§292, CHF$(191) 




2060 


PRINT 


§527, "(G) RETURNED GOODS"; 


20190 


PRINT 


§320, STRING$(27,131) ; 


28 80 


PRINT 


§576," (C) UPDATE/DELETE"; 


20200 


PRINT 


§372, STRINGS(28,131) ; 


2100 


PRINT 


§607, "(H) PRINT CATALOG " ; 


20220 


PRINT 


§168, F$; 




2120 


PRINT 


§656," (D) SALES"; 


20230 


PRINT 


§215, "SCREEN "; S% ; 


2140 


PRINT 


§687, "(I) INITIAL FILE CREATE"; 


20240 


PRINT 


§222, "#" 


; 


2160 


PRINT 


§736, "(E) RECEIPTS"; 


20260 


PRINT 


§189+((20 


-LEN(BS))/2) , B$; 


2180 


PRINT 


§767," (J) QUIT"; 


20280 


PRINT 


§269+((20 


-LEN(PS))/2) , P$; 






Figure 2. Model 4 conversions for 


Program Listings 6 and 8-12. 





Program Listing 1. Common input subroutine. 

20350 REM 

20355 REM COMMON INPUT SUBROUTINE 
20360 REM 

20440 W$="WHICH" 

20450 L%=1 

20460 PRINT §0,STRING$(60," "); 

20480 PRINT §0,W$; 

20500 PRINT §0+LEN(W$)+l,STRING$(L%,"-") ; 

20520 PRINT §0+LEN(W$) +1,""; 

20540 Z$="":Y$»"" 

20560 FOR I%=1 TO L% 

20580 Y$=INKEY$:IF Y$*""GOTO 20580 

20584 IF Y$=CHR$(13)GOTO 20770 

20588 IF Y$=CHR$(8)GOTO 20610 

20592 IF NU$ <> "N" GOTO 20605 

20596 IF Y$=CHR$(46)GOTO 20605 

20600 IF YS<CHRS(48) OR Y$>CHR$(57)GOTO 20580 

20605 IF Y$<CHR$(32) OR Y$>CHR$(122) Y$="":GOTO 

20580 
20610 Z$=Z$+Y$ 
20620 PRINT §0+LEN(W$)+l,Z$; 
20640 IF Y$ <> CHR$(8) GOTO 20760 
20660 Z$=LEFT$(Z$,LEN(Z$)-2) 

20680 PRINT §0+LEN(W$) +1 , STRINGS (63-LEN(W$) ," "); 
20690" PRINT §0+LEN(W$)+l,STRING$(L%,"-") ; 
20700 PRINT §0+LEN(W$)+l,Z$; 
20720 IF I%=1 GOTO 20580 
20740 I%=I%-1 
20750 GOTO 20580 
20760 NEXT 1% 
20770 NU$»" " 
207 80 RETURN End 



Program Listing 2. Test program for Program Listing 1. 

25 CLS 

50 CLEAR 1000 

1000 W$="ENTER TODAYS DATE MM/DD/YY" 

1020 L%=8 

1040 GOSUB 20460 

1999 END 



End 



Circle 95 on Reader Service card. 



(LISP) 



Artificial Intelligence Language 

UO-LISP Programming Environment 

The Powerful Implementation of LISP 

for MICRO COMPUTERS 

Excellent for Learning the Preferred Language 

of the Artificial Intelligence Community 

This POWERFUL subset of the CP M 

based UO-LISP supports, the usuai 

LISP Interpreter Functions. Data 

Types. LISP Structure Editor. 

Optimizing LISP Source Code 

Compiler & Assembler, Assembly & 

LISP Code Intermixing. Compiled 

Code Library Loader. Numerous 

Utility Packages, Comprehensive 150 

Page Manual, the High Level 

Language RLISP. and much more. 

TURN YOUR TRS-80 INTO A REAL 

LISP MACHINE FOR ONLY 

$49.95 

Above configuration supported on TRS 80 Model I & III running with 

TRSDOS or any of the TRSDOS compatible systems (send for catalog list I. 

48K and dual drives and on Model 4 & 4P with Model III TRSDOS 

TO ORDER: Send request for UO-LISP Model I, Model III, or 

Model 4/III with check, money order, or credit card no. with exp. 

date, add parcel shipping fee of $3.00 inside U.S. and CN., $10 

outside U.S. 

NEW CP/M configuration available on TRS 80 Models II, 4, 4P 

and modified Model III with Holmes VID-80 + CP M option. Write 

for your FREE CATALOG with details and order forms for CP M 

support. 




VISA and MasterCard 



P.O 



Northwest Computer Algorithms 

Box 90995, Long Beach, CA 90809 (213) 426-1893 



00 Micro, March 1985 • 61 



Circle 125 on Reader Service card. 



(EEH1 : 



KITS FROM E-C DATA ! 

COMBINE THE COMPONENTS TO DESIGN THE 
SYSTEM OF YOUR CHOICE, EASILY AND 
ECONOMICALLY. 



1 




Illustration from E-C DATA * Disk Kit Installation Manual 

E.g.. take the S695 Two Double-Sided 80-Track Drives Kit 
(over 720 kBytes per drive). It consists of our state-of-the-art 
WD-2793 based Disk Controller, two Double-Sided 80-Track 
Slim-Line Epson Drives, Switch-Mode Power Supply - moun- 
ted on brackets ready to install, Free E-C System Test Disket- 
te, DOS. Installation Manual and Technical Reference Manual 
including Circuit Schematics - Outstanding value for your 
money. Remember, our prices include shipping and a 12 
month warranty ! 



FREE SHIPPING 
WORLDWIDE ! 

12 MONTHS GUARANTEE 



FOR MODEL 3 AND 4: 

Complete 2-Drive Kit (80 Tr., DS, 720k. Slim-Line) 695 

Compiete 2-Drive Kit (40 Tr., DS. 360k. Slim-Line) 635 

Complete Disk Kit w/64k M4 RAM w/o Drives! 265 

Complete Disk Kit w/ 32k M3 RAM w/o Drivest 250 

Complete Disk Kit w/o Drives! 215 

Floppy Disk Controller (3V 2 , 5'.4. 8 ") for M3/4 155 

Real-Time Clock/Calendar Option. ADD 60 

8 Drive Option. ADD 10 

Disk Installation Hardware w/Power Supply, w/o Controller 95 

2 to 4 Internal Drive Expansion Power Supply 65 

RS-232 (V 24) Communications Interface Kit, M3/4 75 

First 64k M4 RAM Expansion Kit 62 

64k - 128k M4 RAM Expansion Kit w/PAL U72 70 

M4 PAL U72 alone 30 

TRSDOS 6. 1 for M4* 45 

Disk Drive Shugart SA-455. Slim-Line. DS. 40 Tracks . 205 
Disk Drive Shugart SA-465. Slim-Line, DS. 80 Tracks . .240 

FOR MODEL 100: 

8k Internal RAM Expansion. Low-Power CMOS 59 

32k Battery Backed Plug-In Extra RAM Bank (32-64k) . . 325 
Bell 103 to CCITT Internal Modem Conversion Kit . . .65 

T Specify il you intend to use Kit with full or Hall Height Drives 

t Only with Purchase of Disk Kit Specify 40 or 80 Track Diskette 

TRS-80 and TRSDOS are Trade Marks ot Tandy Corp ration. Fort Worth. Texas 

HOW TO ORDER: 

USA (New York): 1 - 212 - 678 0064 
Denmark: 45 - 2 - 818191. Tlx. 37825 ec dk. 

Use whichever is convenient in your time zone - or write us I 
Payment by Cheque, Money Order or Credit Card (Access. 
Master Charge, VISA and Eurocard). We ship to all countries 
where Hi-Tech Sales are Legal by US Law. All Prices in US$ 



S 



I 



EC DATA A/S (El-CI 

P.O.B. 116 - DK-3460 Birkerod - Denmark 



Program Listing 3. Test program for Program Listing 1 
that accepts only numeric input. 

25 CLS 

50 CLEAR 1000 

1000 W$="ENTER SALES AMOUNT" 

1020 L%=9 

1040 NU$="N" 

1060 GOSUB 20460 

1999 END 





Program Listing 4. Error flash subroutine. 




20800 








20805 


REM ERROR 'FLASH' SUBROUTINE 




20810 








20840 


FOR J%=1 TO 5 




20845 


PRINT §0,ES; 




20850 


FOR I%=1 TO 250:NEXT 1% 




20860 


PRINT §0,STRING$(63," "); 




20880 


FOR I%=1 TO 150: NEXT 1% 




20890 


NEXT J% 




20920 


RETURN 


End 



Program Listing 5. Test program for Program Listing 4. 

25 CLS 

50 CLEAR 1000 

1000 E$="RESPONSE MUST BE 1 - 8" 

1020 GOSUB 20840 

1999 END 





Program Listing 6. Screen framing subroutine. 




20100 
20105 








REM SCREEN 'FRAMING' SUBROUTINE 




20110 
20130 








CLS 






20140 


PRINT 


§64, STRING$(64,140) j 




20150 


PRINT 


i|85, CHR$(188) ; 




20160 


PRINT 


0106, CHR$(188) ; 




20170 


PRINT 


§149, CHR$(191) ; 




20180 


PRINT 


§170, CHRS(191) ; 




20190 


PRINT 


§192, STRING$(22,131) ; 




20200 


PRINT 


§234, STRING$(22,131) ; 




20220 


PRINT 


§128, F$; 




20230 


PRINT 


§17 4, "SCREEN "; S% ; 




20240 


PRINT 


§181, "t"; 




20260 


PRINT 


§150+( (20-LEN(B$) )/2) , B$; 




20280 


PRINT 


§214+((20-LEN(P$))/2) , P$; 




20300 


RETURN 










End 



Program Listing 7. Test program for Program Listing 6. 

25 CLS 

50 CLEAR 1000 

1000 B$="ACME WHOLESALERS" 

1020 P$=" INVENTORY CONTROL" 

1040 P$="INITIAL CREATE" 

1060 S%=13 

1080 GOSUB 20130 

1999 END 



Program Listing 8. Composite menu print routine. 


100 CLS 




500 CLEAR 1000 




1000 B$="ACME WHOLESALERS" 


1020 P$=" INVENTORY CONTROL" 


1040 F$="MAIN MENU" 




1060 S%=1 




1080 GOSUB 20130 




2000 PRINT §392, "(1) 


RANDOM INQUIRY"; 


2020 PRINT §421, "(5) 


INCOMING SHIPMENTS"; 


2040 PRINT §456, "(2) 


ADD RECORDS"; 


2060 PRINT §485, "(6) 


PRINT REPORTS"; 


2080 PRINT §520, "(3) 


UPDATE/DELETE"; 


2100 PRINT §549," (7) 


INITIAL FILE CREATE"; 




Eating 8 continued 



62 • 80 Micro, March 1985 



H 



CQIYIPUTRQNICS 



N 
C. 



• • EVERYTHING FOR YOUR TRS-80™ • ATARI™ • APPLE" * PET™ • CP/M" • XEROX™ • IBM" • OSBORNE™ • 

• TRS80 is a trademark of the Radio Shack Division of Tandy Corp * ATARI is a trademark of Atari Inc. ■ 'APPLE is a trademark of Apple Corp. * PET is a trademark of Commodore 
* CP/M is a trademark of Digital Research 'XEROX is a trademark of Xerox Corp. • * BM is a trademark of BM Corp ■ ' OSBORNE is a trademark of Osborne Corp. 



BUSINESS PAC 100 




* AH orders P roC f* S ' . guarantee 

* 30-Day money back gu 



100 Ready To Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance.....Accounts Receivable.. ...Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 Interest Apportionment by Rule of the 78s 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEINT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightline depreciatjon 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

11 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with daily register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/ A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple, 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVARJN Rate of return on investment with variable inflows 

1 8 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

2 1 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWUH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nooequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP % Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection modeli.e. what stocks to hold 

38 OPTWRITE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

4 1 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 UTILITY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 
4b TRAMS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost volume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost benefit waiting line analysis 

56 NCFANAL Net cashflow analysis for simple investment 

57 PROF1ND Profitability index of a project 

58 CAP1 Cap Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DiSCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FIN RAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-Unks with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from bmectock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAY/NET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS SakHeaseback analysis 

99 RRCONVBD Investors rate of return on convertible bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



D TRS-80 Cassette Version $99.95 

D TRS-80 (Mod-I or III), Pet, Apple 

or Atari Versions $99.95 

n TRS-80 Mod-ll, IBM, Osborne 

and CP/M Versions $149.95 

ADO S3 00 FOR SHIPPING IN UPS AREAS 

ADD $4 .00 FOR COO. OR NON-UPS AREAS 

ADD SS 00 TO CANA0A AN0 MEXICO 

ADD PROPER POSTAGE OUTSIOE OF U.S.. CANADA AND MEXICO 

iCQnRJTnQMCSi 



■Say* 




W\T>G-W( 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



HOUR 
O A ORDER 




ASK FOR OUR 64-PAGE CATALOG 



DEALER INQUIRIES INVITED 



ALL PRICES A SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



Circle 9 on Reader Service card. 



80 Micro, March 1985 • 63 



GREAT IDEAS 

A DISK 






GREAT IDEAS 
IN A CASSETTE 



NOW, you can load the major programs from 80 MICRO— automatically. 



LOAD 80 is a collection of the major programs from each 
issue of 80 MICRO including: tutorials. . .utilities. . .games 
...home-hobby applications. . .word processing programs... 
and more. Each program is on a formatted disk or cassette 
and ready to run. . .saving you hours of key-in time. And 
Model III users can now run LOAD 80 automatically — our 
new disk transfer system eliminates conversions. 

For less than $2.00 per program LOAD 80 gives you a 
library of over 100 quality programs in just 12 months— de- 
livered to your home each month 

Plus, a year's subscription to LOAD 80 saves you nearly 
30^o off the single disk or cassette price— that's enough for a 
year's subscription to 80 MICRO. 

Your LOAD 80 comes complete with user support. Just 
call 1-603-924-9471 any business day and you'll receive prompt 
assistance from our LOAD 80 staff and the 80 MICRO 
Technical Editors. 

To get your time-saving subscription or monthly issue of 
LOAD 80 call toll free 1-800-258-5473 (in New Hampshire 
dial 1-924-9471). Or fill out this coupon and send it in today. 



YES! Save roe time. Save me money with LOAD 80. 

Send me a year of LOAD 80 on disk for 
$199.97 

□ Send me a year of LOAD 80 on cassette for 
$99.97. 

Send me this month's LOAD 80 disk for 
$21.47 

□ Send me this month's LOAD 80 on cassette 
for only $11.47. 

Prices include postage and handling. 
Foreign airmail please add 45 cents per item 
or $25.00 per subscription. U.S. funds drawn 
on U.S. bank only. 



D Check/MO 

Card* 

Signature 

Name 

Address 

City 



DMC n Visa DAE 




. Exp. Date_ 



State. 



_Zip_ 



LOAD 80 



<£ 



L8503 

•0 PI** Street • Peterborough. NH QMS* 



Circle 137 on Reader Service card 



l.iaing A continued 

2120 PRINT P584,"(4) SALES"; 

2140 PRINT 0613, "(8) QUIT"; 

2160 NUS="N" 

3000 GOSUB 20440 

4100 IF VAL(Z$)<1 GOTO 4500 

4200 ON VAL(Z$) GOTO 5000,6000,7000,8000,9000,10000,11000,12000 

4500 ES=" RESPONSE MUST BE NUMBER 1-8" 

4520 GOSUB 20840 

4540 GOTO 3000 

5000 STOP: REM (RANDOM INQUIRY ROUTINE) 

6000 STOP: REM (ADD RECORDS ROUTINE) 

7000 STOP: REM (UPDATE/DELETE ROUTINE) 

8000 STOP: REM (SALES ROUTINE) 

9000 STOP: REM (INCOMING SHIPMENTS ROUTINE) 

10000 STOP: REM (PRINT REPORTS ROUTINE) 

11000 STOP: REM (INITIAL FILE CREATE ROUTINE) 

12000 STOP: REM (QUIT ROUTINE) 

19999 END 



RANDOM INQUIRY" > 
PRINT REPORTS"; 



INITIAL FILE CREATE"; 



Program Listing 9. Composite menu print routine using alphabelks. 

100 CLS 

500 CLEAR 1000 

1000 B$-"ACME WHOLESALERS" 

1020 P$-"INVENTORY CONTROL" 

1040 F$-"MAIN MENU" 

1060 S%=1 

1080 GOSUB 20130 

2000 PRINT 9392, "(A) 

2020 PRINT 0421, "(F) 

2040 PRINT §456," (B) ADD RECORDS"; 

2060 PRINT £4 85, "(G) RETURNED GOODS"; 

20 80 PRINT 3520," (C) UPDATE/DELETE"; 

2100 PRINT 8549," (H) PRINT CATALOG"; 

2120 PRINT 0584," (D) SALES"; 

2140 PRINT 9613, "(I) 

2160 PRINT §648, "(E) RECEIPTS"; 

2180 PRINT 9677, "(J) QUIT"; 

3000 GOSUB 20440 

4100 IF Z$<"A" GOTO 4500 

4200 ON ASC(Z$)-64 GOTO 5000,6000,7000,8000,9000,10000,11000,120 

00,13000,14000 

4500 E$="RESPONSE MUST BE A-J" 

4520 GOSUB 20640 

4540 GOTO 3000 

5000 STOP: REM (RANDOM INQUIRY ROUTINE) 

6000 STOP: REM (ADD RECORDS ROUTINE) 

7000 STOP: REM (UPDATE/DELETE ROUTINE) 

8000 STOP: REM (SALES ROUTINE) 

9000 STOP: REM (RECEIPTS ROUTINE) 

10000 STOP: REM (PRINT REPORTS ROUTINE) 

11000 STOP: REM (RETURNED GOODS ROUTINE) 

12000 STOP: REM (PRINT CATALOG ROUTINE) 

13000 STOP: REM (INTITIAL FILE CREATE ROUTINE) 

14000 STOP: REM (QUIT ROUTINE) 

19999 END 



Program Listing 10. Composite menu print routine using first characters. 

100 CLS 

500 CLEAR 1000 

1000 B$-"ACME WHOLESALERS" 

1020 P$»" INVENTORY CONTROL" 

1040 F$-"MAIN MENU" 

1060 S%-1 

1060 GOSUB 20130 

2000 PRINT $392,"(R)ANDOM INQUIRY"; 

2020 PRINT 9421,"(I)NCOMING SHIPMENTS"; 

2040 PRINT §456," (A) DD RECORDS"; 

2060 PRINT §485,"(P)RINT REPORTS"; 

20 80 PRINT e520,"(U)PDATE/DELETE"; 

2100 PRINT §549,"(F)ILE CREATE"; 

2110 PRINT 9584,"(S)ALES"; 

2120 PRINT §613,"(Q)UIT"; 

3000 GOSUB 20440 

4200 S$ = "RAUSIPPQ" 

4220 FOR I%=1 TO LEN(SS) 

4240 IF MID$(S$,I%,1)-Z$ GOTO 4400 

4260 NEXT 1% 

4280 E$-"INVALID RESPONSE* 

4300 GOSUB 20840 

4320 GOTO 3000 

4400 ON 1% GOTO 5000,6000,7000,8000,9000,10000,11000,12000 

4500 E$«"RESPONSE MUST BE A - J" 

4520 GOSUB 20840 

4540 GOTO 3000 

/.swiff loconnmied 



FOR TOg=©@ MODELS 1 , 3 
IBM PC, XT, AND COMPAQ 

DATABASE 

WTOOUT THE WAIT! 



^ 



DATAHANDLER and DATAHANDLER-PIUS ace 
ftit, May database program* which accept any 
length of f t«4d, tort and key on any field*, never pad 
wi th ue elee* blan k s. And they Integrat e with FORTH- 
WRITE, FORTHCOM. and the raat of the MMS- 
FORTH Syatem. 

Tha powar, apaad and oompactnaaa of MMSFORTH 
drive thaaa major application* for many of YOUR 
home, achool and business taekal Imagine a aophi*- 
ticatad databaaa management ayatam with flexibu- 
tty to cram, maintain and prim mailing list* with 
multipia address tinea. Canadian or 9-digrt U.S. ZIP 
coda* and multiple phone numbers, phi* tha apaad 
to load hundreds of record* or aort them on several 
fields in 5 eacondal Manage inventories wrrh atiec- 
tion by any character or combination. Beienca 
checkbook record* and do CONDITIONAL report- 
ing of expense* or other calculation*. Fa* any 
record* and recall s ele c ted one* with optional 
upper/lower case match, in standard or custom 
format*. Personnel], rnemberahlp list*. b iWogra- 
phie*. cataloge of record, stamp and coin collec- 
tions -you name W AJ IrvSTANTLY. wrmout wasted 
byte*, and with cueing from scr een to good that 
non-programmer* quickly master it* use! With man- 
ual, sample data file* and custom word* for marl list 
and checkbook us*. 

DATAHANDLER I* available on all MMSFORTH 
Systems, uaa* 64K or lea* of memory, and include* 
Murca00da.DATAHANOLEFHn.L6raquira* MMS- 
FORTH for IBM PC. uses ail but 64K of available 
RAM lor large-file buffering, and adds advanced 
features: active editing window, optional apread- 
eheet data display, uaer-tralnable function key*, 
and much mora. 










The total software envi ronment for 
IBM PC, TRS-80 Model 1 . 3. 4 and 



•Personal License (required): 

ti(IBMPC) .... 
»(TRSaoi.3or«| 
•Personal License (optional module*): 

FORTHCOM Gomrnunicstiont module . . . . 8 S8M 
VRLrntS SMS 



61 

L 



BtPtRT-t wptrt r ym m 

MTAHANOLEN 

MTAHM*Oiaa>aiUS (PC only. IMK req.) 
F O a i HW W I E wordprooswor 17SJS 

•Corporate Site License 

Extensions gnmti,aaa 

•Some recommended Forth books: 
uaaacnsTANOtNO forth (overview) . . . $ am 

OTARTtNe FORTH (programing) ISM 

TISNKHQ FORTH Otchelqut) IMS 

E"2@0C«t)*O FORTH (m MMSFORTH) . . . HM 
Shipping/handling A tax extra. No return* on toftware. 

Ask your dealer to show yog the world of 
>FORTH. or request our free brochure. 

MICROCOMPUTER SERVICES 
Shore Road. Nettefc. MA 017M 



90 Micro, March 1985 



Circle 102 on Reader Service card. 



GENEALOGY and INDEXING 
software 

GENSYSTEMS 1.3 (genealogy) 

TRS-80® Models I/III/4/4P 

TRSDOS® 2.3/1.3 

system and user's manual: $128.45 

G-CRAB 5.0 (genealogy) 

TRS-80 Models 4/4P or 11/12/16 

TRSDOS 6.x/ 2.0a/ 4.2 

system and user's manual: $195.00 

DEX 1.0 (indexing) 

TRS-80 Models 4/4P or 11/12/16 

TRSDOS 6.x/ 2.0a/ 4.2 

system and user's manual: $99.00 



Please send $2.00 for a descriptive 
booklet on GENSYSTEMS or 
G-CRAB or DEX. 

Texans please include 5. 01 25% sales 
tax. 



ARMSTRONG 

GENEALOGICAL SYSTEMS 

5009 Utah Drive 

Greenville, TX 75401 

(214) 454-8209 



1 isiing 10 continued 




5000 ST0P:REM (RANDOM INQUIRY ROUTINE) 




6000 STOP: REM (ADD RECORDS ROUTINE) 




7000 STOP: REM (UPDATE/DELETE ROUTINE) 




8000 STOP: REM (SALES ROUTINE) 




9000 ST0P:REM (INCOMING SHIPMENTS ROUTINE) 




10000 STOP: REM (PRINT REPORTS ROUTINE) 




11000 STOP: REM (INITIAL FILE CREATE ROUTINE) 




12B0B STOP -.REM (QUIT ROUTINE) 




19999 END 






End 



Program Listing U. Composite menu print routine using cursor selection. 

25 CLS 

50 CLEAR 1000 

100 DIM P(8) 

120 FOR I%=1 TO 8 

140 READ P(I%) 

160 NEXT 1% 

180 DATA 392,456,520,584,421,485,549,613 

200 W$="PRESS SPACE BAR FOR OPTIONS - ENTER TO SELECT" 

1000 B$= M ACME WHOLESALERS" 



1020 


P$=" INVENTORY CONTROL" 


1040 


F$="MAIN MENU" 




1060 


S%=1 




1080 


GOSUB 20130 




2000 


PRINT @392,"(1) 


RANDOM INQUIRY"; 


2020 


PRINT @421,"(5) 


INCOMING SHIPMENTS" 


2040 


PRINT @456,"(2) 


ADD RECORDS"; 


2060 


PRINT 0485, "(6) 


PRINT REPORTS"; 


20 80 


PRINT 0520, "(3) 


UPDATE/DELETE"; 


2100 


PRINT 0549, "(7) 


INITIAL FILE CREATE 


2120 


PRINT 0584, "(4) 


SALES"; 


2140 


PRINT 0613, "(8) 


QUIT"; 


3000 


FOR M%=1 TO 8 




3020 


PRINT 0P(M%)-1, 


■ *" . 


3040 


GOSUB 20450 




3060 


IF Z$="" GOTO 4000 


3 07 


PRINT 0P(M%)-1, 


i n . 



I.tsrmg II continued 



Reader Service card 



Circle 178 on Reader Service card. 



TAX-PREP"'85 

Easy. 1984 tax templates for MULTIPLAN™ or 
LOTUS 1-2-3 T " users 



The best I've seen, excellent support, good instructions, 
very easy to get used to. " Professional Tax Preparer. NJ. 

SAVE TIME - SAVE MONEY 

USE YOUR MULTIPLAN or 
LOTUS 1-2-3 SPREADSHEET 

Professional, fully documented, linked templates for 
preparing 1984 personal income tax returns. Enter data 
once User friendly, complete manual & tutorial. All tax 
tables and computations built in. also use for "what if tax 
planning. IRS accepted printout 

Includes all of the following forms and schedules: 

1040. A, B. C. D. E. F. G. R. SE. W. 2106, 21 19. 2210, 2441. 

3468, 3903. 4562, 4684, 4797. 5695. 6251. 

TO ORDER: specify TRS-80 Models 4. 4p. II, 12. or 16 
(TRSDOS). 8" CP/M or Tandy 2000 IBM PC. Apple II and 
Macintosh also available. MULTIPLAN or 1-2-3 REQUIRED 
(specify which). 

TAX-PREP '85 - $129.95 plus $3.00 shipping 

(PA add 6% tax). Call or write for more information. 





• Up Id ' overlapping pull-down hinAMi tor mhus. 

date/tie*. *h>ip'. mi,' control and j«r rtias. 

• riilti !«lms print •pooler print* concurrently 
• ith windowing operations. 

• bingie k«W«trak« allow* "Help', printing, send/ 
receive riles, window scrolling, directory window 
«i,ii »vin( ot baud rai*-, rjeta length, «.to» Bits 
ana pant*. winoOw-ennancea rer>ir.al ?>.. 

•29.93 :j i.,tiudwu iLr.ec! ur p.m. jicepted. No DO 

t-^l <_ X I X c_ s>u 

LUli K«'j . «.A 



66 • 80 Micro, March 1985 



Liaing II continued 

30 80 NEXT M% 

3100 GOTO 3000 

4000 ON M% GOTO 5000,6000,7000,8000,9000,1001 

11000,12000 

4200 S$="RAUSIPFQ" 

4220 FOR I%=1 TO LEN(SS) 

4240 IF HID$(S$,I%,1) =Z$ GOTO 4400 

4260 NEXT 1% 

4280 E$="INVALID RESPONSE" 

4300 GOSUB 20840 

4320 GOTO 3000 

4400 ON 1% GOTO 5000,6000,7000,8000,9000,100 

11000,12000 

4500 E$="RESPONSE MUST BE A - J" 

4520 GOSUB 20840 

4540 GOTO 3000 

5000 STOP: REM (RANDOM INQUIRY ROUTINE) 

6000 STOP: REM (ADD RECORDS ROUTINE) 

7000 STOP: REM (UPDATE/DELETE ROUTINE) 

8000 STOP: REM (SALES ROUTINE) 

9000 STOP: REM (INCOMING SHIPMENTS ROUTINE) 

10000 STOP: REM (PRINT REPORTS ROUTINE) 

11000 STOP: REM (INITIAL FILE CREATE ROUTINE) 

12000 STOP:REM (QUIT ROUTINE) 

19999 END 

20100 REM 

20105 REM SCREEN 'FRAMING' SUBROUTINE 

20110 REM 

20130 CLS 

20140 PRINT 064, STRINGS (64 , 140) ; 

20150 PRINT 085, CHR$(188); 

20160 PRINT @106, CHR$(188) 

20170 PRINT 0149, CHR$(191) 

20180 PRINT §170, CHR$(191) 

20190 PRINT §192, STRING$ ( 22,131) ; 

20200 PRINT @234, STRING$ ( 22 , 131) ; 

20220 PRINT §128, F$; 

20230 PRINT §174, "SCREEN "; S% ; 

20240 PRINT §181, "#"; 

20260 PRINT §150+( (20-LEN(B$) )/2) , B$; 

20280 PRINT §214+( (20-LEN(P$) )/2) , P$; 

20300 RETURN 



20350 
20355 
20360 
20440 
20450 
20460 
20480 
20500 
20520 
20540 
20560 
20580 
20584 
20588 
20592 
20596 
20600 
20605 
:GOTO 
20610 
20620 
20640 
20660 
20680 
20690 
20700 
20720 
20740 
20750 
20760 
20770 
207 80 
20800 
20805 
20810 
20840 
20845 
20850 
20860 
20880 
20890 
20920 



REM 

REM COMMON INPUT SUBROUTINE 

REM 

w$="which" 

L% = 1 

PRINT §0,STRING$(60," "); 

PRINT 00, W$; 

PRINT §0+LEN(W$) +1,STRING$(L%,"~") ; 

PRINT §0+LEN(W$) +1,""; 

Z$="":Y$="" 

FOR I%=1 TO L% 

Y$=INKEY$:IF Y$="" GOTO 20580 

IF Y$=CHR$(13) GOTO 207 80 

IF Y$=CHR$(8) GOTO 20610 

IF NU$ <> "N" GOTO 20605 

IF Y$=CHR$(46) GOTO 20605 

IF YS<CHR$(48) OR Y$>CHR$(57) GOTO 20580 

IF Y$<CHR$(32) OR Y$>CHR$(122) THEN Y$="" 

20580 

Z$=Z$+Y$ 

PRINT §0+LEN(W$) +1,Z$; 

IF Y$ <> CHR$(8) GOTO 20760 

Z$=LEFT$(Z$,LEN(Z$)-2) 

PRINT §0+LEN(W$) +1,STRINGS(63-LEN(W$) ," ") 

PRINT §0+LEN(W$) +1,STRING$(L% ,"-") ; 

PRINT §0+LEN(W$) +1,Z$; 

IF I%=1 GOTO 20580 

I%=I%-1 

GOTO 20580 

NEXT 1% 

NU$=" " 

RETURN 

REM 

REM ERROR 'FLASH' SUBROUTINE 

REM 

FOR J%=1 TO 5 

PRINT 00, E$; 

FOR I%=1 TO 250:NEXT 1% 

PRINT §0,STRING$(63," " ) ; 

FOR I%=1 TO 150: NEXT 1% 

NEXT J% 

RETURN 



End 



Circle 250 on Reader Service card. 



Circle 27 on Reader Service card. 



Nil ITlARYmAC INDUSTRIES INC 

800-231-3680 

Radio Shack TRS-8o's 
EPSON PRINTERS 

People you Trust to give you the very best! 



• Lowest 
Price 

• Reliable 
Service 

• Quality 
Products 



"World's largest volume TRS-80 
Dealer" 

22511 Katy Fwy., Katy (Houston) Texas 77450 

(713) 392-0747 Telex 774132 







*TRS-80 MODEL I - 1 1 1 - 1 V-HD 1 200- 1 000 

(Software Discwnts>SAVE$$$$f$CALL$$$$$$ 



1. Disk Operatmo Svstets 2. 

DosPius 3.5 $59.95 

DosPlus I VA.tf/Hzal. $119.95 

DosPius 3.5 i IVA.. $159.95 3. 

HULTIDOS 1.60 $59.95 

Zeus. 1-2-3. (AssLano)$79.95 

f4. Teroinal Connuni cation 5. 

Mten $59.95 

larvConn $34.95 

BBS-80. (board5V5) . . . $49. 95 

a. Conversion Proorats 

Conv3 to 4 $49.95 

Conv3 to lBH.pc... $139.95 



Word Processing 

HScriot $59.95 

Lazv Writer $115.00 

Data Base 

Haxi Hail $39.95 

Maxi Hanaoer II. $169.95 
Account i no Svst ets 

VersaLedoer $129.95 

VersaReceiyables.$84.95 
VersaPavables....$84.95 

VersaPavroll $84.95 

VersaInventorv...$84.95 
All 5 VersaAcc..$449.75 
Haxi Cras(Cfcsvs).$B9.95 



Conv3 to 2000 $139.95 

. Bible (kino Jates) Coeolete For Model 1-3-4 and 1000 ♦ 

TheMord $199.95 i Bible(Topics>200sbi. .$49.95 

Aon culture Hanaoenent TRS-80 1000 and 1200 $CALL 

Hotel It Eouioaent Hanaoenent 1000 and 1200 $Call 

Diskette Holder (suspension file or note book) 8 6.... $10.00 

O EI S I CB IM S O R I W & 1^ E£ 

Toll Free 24 hrs l-800-622-4070(Illinois)l-800-942-7317 
Technical Ser (702) 384-9320 Hon It Tues 12 To 3 on 
Box 42847 Las Veoas. Nv 89104 
TERMS: H.C./Visa/Checks/C.O.D.Prices subject to chanoe 

♦trademark of the Tandv Corporation 



80 Micro, March 1985 • 67 



Circle 506 on Reader Service card 




TAR'S NEW 

PRINTERS WORK 

20% FASTER. 

COST 20% LESS. ARE 

100% CERTAIN TO 

CHANGE YOUR MIND 

ABOUT PRINTERS. 





This new dual-mode SG-10 is only $299. 




lo printer could be more appealing 
than one you design yourself. 

And, in effect, that's what you've done. 

The new "S" series printers from Star 
Micronics have been designed not to our spec- 
ifications, but to yours. With values that con- 
found our accountants but will make great 
sense to you. 

These printers are faster than ever. More 
compatible and reliable. With more added in 
and fewer add-ons. 

And yet they cost less. 

Don't try to figure it out. Just enjoy. 

NLQIS10F2 



Because we've 
increased our print- 
ing throughput by 
20%, you can now 
finish 6 pages in the time it 
used to take to print 5. And even though we've 
upped our speed, we've kept up our quality 

In fact, on three of our new models, both 
draft and near -letter -quality are standard (no 
extra charge). A fourth model, the SB-10, prints 
draft and letter -quality standard (again, not 
extra). 

So now, with just one printer, you're ready 
for data processing and word processing. 
That's like owning two printers for the price 
of justone. 



GET ON LINE BY 
JUST PLUGGING IN 

The new Star "S" series 
printers are fully compatible 
with even the most fickle of 
personal computers. 

And they're especially 
friendly with IBM*PC, Apple! 
Commodore* and all compatibles. 




In most cases, hooking up is no more 
complicated than putting a square peg in a 
square hole. But it's a lot more rewarding. 

READY FOR 
ANY SOFTWARE 



The new "S" series 




printers make printing 
as easy as 1-2-3.™ 
Which is just one 
example of the many 
spreadsheet programs 
they're ready for. 

The new Stars can work 
with word processing programs 
like WordStar.* Educational software 
like Dr. Logo.™ And even the new integrated 
formats like Framework™ and Symphony.™ 

So Star printers match hardware to software 
without disk-driving you crazy. 

They handle many functions faster. They're 
more compatible. Less expensive. More reli- 
able. And have a full year warranty "S" series 
printers have been designed with so many of 
your needs in mind, it's as if you'd done it 
yourself. 

And what a great job you did. 

For a free demonstration, visit your local 
Star dealer. 



SD-10 types 
draft and NLQ, 
just $449. 




SR-10 prints 

200 cps for only $649 




SR-15 includes 16K memory 

for spreadsheets, $799. 




THE POWER BEHIND THE PRINTED WORD " 

200 Park Avenue. New York. NY 10166 

Chicago. IL (312) 773-3717 • Boston, MA (617) 329-8560 

Irvine. CA (714) 586-8850 

Prices shown are manufacturer's suggested retail prices 



UTILITY 



by Alan D. Smith 



A Sort Story 

Add this lightning-fast string sort 
to any Model 4 Basic program. 



Model 4 owners have good 
cause to feel out of sorts. 
While Model III Basic's 
CMD"0" statement offers fast string 
array sorting, Model 4 Basic has no 
such feature. Sort4 is a 14-line string- 
sorting routine that restores order to 
Model 4 Basic. You can incorporate it 
into any program, and because it in- 
cludes machine language, it's fast; you 
can sort 500 randomly sequenced strings, 
each 10-20 characters long, in about two 
seconds. 

Sorting It Out 

To use Sort4, type in Program List- 
ing 1 and save it to disk in ASCII for- 
mat (SAVE "SORT4",A). Once it's on 
disk, all you have to do is merge the 
routine with an existing program or 
load it before writing a new program. 

When you're working with Sort4, 
you must protect the RAM area above 
location 65,303, since Sort4 stores ma- 
chine-language code from locations 
65,304-65,535. To do so, load Basic 
from the DOS level by typing in BASIC 
(M = 65303). 

Sort4 requires that you store strings 
for sorting in a string array named 
SORT4ARRAYS with a subscript be- 
tween 1 and whatever upper limit you 
select for the array. Note that the lowest 
subscript is 1, not zero, to accommo- 
date programs that specify "option 
base 1" for array subscripts. 

A defined function called SORT4$ 
controls access to Sort4 from anywhere 
in your program. You simply specify 



System Requirements 



Model 4 
64k RAM 
Basic 
TRSDOS 6.X.X 



LOADM 



Program Listing I. Sort4 string-sorting routine. 



1 S4PTR! 



65304!: REM Start of reserved area (232 bytes) for SORT4 code; must 
load BASIC via "BASIC (14=65303)". This is highest possible 
location, but can be lowered, as SORT4 is fully relocatable. 
DATA 213,221,225,221,102,2,221,110,1,78,35,70,23 7,67,-229,35,78,35,70,237,67, 
-227,237,67,-217,237,7 5,-217,20 3,56,203,25,120,177,200,237,67,-217,33,1, 
0,34,-225,42,-227,183,237,66,3 4,-223,4 2,-225,3 4,-221,237,7 5,-217,9,3 4 
DATA -219,42,-221,20 5,-184,229,221,225,42,-219,205,-184,229,253,22 5,221,126,0, 
183,40,98,253,126,0,183,40,40,221,190,0,56,7 2,221,70,0,17 5,50,-231,253, 
102,2,253,110,1,221,86,2,221,94,1,26,190,56,64,32,10,19,35,16,246,5 8 
DATA -231,183,40,52,221,229,225,253,229,20 9,6,3,7 8,26,119,121,18,35,19,16,247, 
42,-221,237,7 5,-217,183,237,66,250,-194,40,20,3 4,-221,24,141,71,62,1,24, 
183,229,20 9,25,25,237,91,-229,25,201,42,-225,35,34,-225,237,75,-223,183 
DATA 237,66,250.-58,20 2,-58,195,-28 

DEFINT S: S4PTRMSB = FIX (S4PTR 1/256) : S4PTRLSB = S4PTR! - S4PTRMSB*256 
FOR S4INDEX = TO 216: REM Install SORT4; negative values require relocation 
READ S4BYTE: IF S4BYTE =>0 THEN POKE S4PTR ! +S4INDEX ,S4BYTE: GOTO 13 
S4LSB = S4PTRLSB + ABS(S4BYTE): S4MSB = S4PTRMSB: REM Do relocation 
IF S4LSB > 255 THEN S4LSB = S4LSB - 256: S4MSB = S4MSB + 1 
POKE S4PTR!+S4INDEX,S4LSB: POKE S4PTR ! +S4INDEX+1 ,S4MSB 
S4INDEX = S4INDEX + 1: REM Step index for extra byte POKE'd 

13 NEXT S4INDEX: DEF USR = S4PTR!: REM Define SORT4 code entry point 

14 DEF FN S0RT4S(X%) * USR (MKIS ( VARPTR (S0RT4 ARRAY S(X%) ) -X%*3) * HKIS(X%)) 



Program Listing 2. Sort4 demonstration. 



no 
120 

130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2 BO 



CLS: DIM SORT4ARRAY$(200) : RESTORE 

FOR S4WORK = TO 187: REM Hash total DATA statements to check typin 

READ S4BYTE: S4HASH = S4HASH + S4BYTE 
NEXT S4WORK 
IF S4HASH <>12413 THEN PRINT "Error in DATA statements; please check 

PRINT "Setting up 200 7-byte alpha strings ": PRINT 

FOR S4WORK = 1 TO 200: REM Generate & display 200 random 7-byte stri 

SORT4ARRAYSIS4WORK) = STRINGS ( 7 ,RND( 26 ) +96) 

PRINT SORT4ARRAYS(S4WORK) ; " "; 
NEXT S4WORK 

PRINTS 0, "Press <ENTER> when ready to commence sort " 

S4WORK$ = INKEYS: IF S4WORKS <> CHRSQ3) THEN 220 

CLS: PRINTS (12,28), "Sorting commenced " 

SOUND 0,0: DUMMYS = FNSORT4 S ( 200) : SOUND 0,0: REM Sort SORT4ARRAYS ( 1 

CLS: PRINT "Sort complete ": PRINT 

FOR S4WORK = 1 TO 200: REM Display sorted strings 

PRINT SORT4ARRAYS(S4WORK) ; " 
NEXT S4WORK: END 



! " : END 

ngs 



the number of strings you want sorted. 

For example, assume you want to sort 
150 strings of varying lengths. You'd 
dimension SORT4ARRAYS (probably 
early in your program) with the state- 
ment DIM SORT4ARRAY$(150). 

Store your 150 strings in the array as 
SORT4ARRAY$(l)-SORT4ARRAY 
$(150). Each string may contain from 
zero (a null string) to 255 characters. 

When you're ready to sort, you need 
to write only one statement: DUMMYS 
= FNSORT4$(150). The variable name 
dummy is just that, a dummy. You can 
substitute any string name; Z$ = 



FNSORT4$(150) works just as well. You 
can also use an integer variable for the 
number of strings; for example, if X% 
= 150, you could type in DUMMYS = 
FNSORT4$(X<7o). 

A Demonstration 

So much for the theory— now you're 
ready to see the routine in action. Pro- 
gram Listing 2 demonstrates the sorting 
routine's speed and also checks the ac- 
curacy of your typing for Listing l's 
data statements. 

Assuming you've already saved List- 
ing 1 to disk, load Basic as specified 



70 • 80 Micro, March 1985 



above, then type in Listing 2 and merge 
Sort4 with it (MERGE "SORT4"). 
Run the merged program. You'll notice 
a short pause, during which the pro- 
gram sums the data values and checks 
the total, called a hash total, to make 
sure it's correct. If not, the program dis- 
plays an error message. 

If the total is correct, the program 
displays 200 seven-character strings, ran- 
domly sequenced, and prompts you to 
press the enter key to start the sort. In 
under a second, you'll see the strings re- 
displayed in sorted alphabetical order. 

Routine Matters 

Sort4's heart is the machine-language 
code in data lines 2-5, which is POKEd 
into the high RAM area you protected 
from Basic. Although I said earlier that 
this area started at location 65,304 
(FF18 hexadecimal), you don't have to 
use that address. If, for example, you're 
already using part of that area for a 
printer driver, change the 65,304 in line 
1 to a lower address. The program auto- 
matically handles all relocation. 

Remember, however, that SORT4 re- 
quires a 232-byte protected memory 
area, so be sure to change your Basic 
load command accordingly. If you 
change line 1 to read S4PTR! = 62000, 
you should load Basic by typing in 
BASIC (M = 61999). 

Incidentally, the data statements' 
negative values indicate that the pro- 
gram calculates relocation parameters 
before it POKEs anything. 

Line 14 passes a 4-byte parameter 
string to the SORT4 machine code. The 
routine uses the disk-related function 
MKI$ to store the two integer values 
most efficiently, as a pointer to the ar- 
ray and a value indicating the number 
of strings you'll sort. 

The array pointer's code in line 14 
may seem strange, but it serves a pur- 
pose. If you specify a subscript beyond 
the dimensioned limit, Basic will return 
an error message, thereby protecting 
your data in memory from the machine 
code. ■ 

You can write to Alan D. Smith at 
P.O. Box 119, Mortdale, N.S. W. 2223, 
Australia. 



Related Articles 

Ailan, Ralph C. "Proper Arrangements," June (984, 
p. 96. Son multidimensional string arrays under Mod- 
el III TRSDOS. 

deZoysa, C.A. "Graphic Sort," August 1980, p. 166. 
A visual demonstration of the sorting process. 

Gomey, Leu. "Ml Abovtt Sorts," Pws \ and U, 
August 1981, p. 208 and September 1981, p. 148. A 
tutorial about sorting techniques. 



MEW PRICES ... 

LOWER THAN EVER ! 



COMPUTERS 

SANYO 550-1 (1 160K DRIVE) $650 
SANYO 550-2 (2 1 60K DRIVES) 680 

SANYO 555-1 (1 320K DRIVE) 950 

SANYO 555-2 (2 320K DRIVES) 970 

SANYO 555-4 (2 800K DRIVES) 1 1 00 
NEC 8201 (LAP PORTABLE LIKE MOD 100) 399 

TANDY 1 000 (IBM COMPAT.) 1 025 

TANDY 1200 CALL 
TANDY 2000 225 

TANDY/IBM EXPANSION BOARDS CALL 

EXPANSIONS 

MODEL 3 4 4 64K UPGRADE 8230 
HOLMES VID 8 +CPM 2.2 350 

HOLMES 5" & 8" DOUBLER 1 25 

GENERIC DOUBLER 99 

COLOR COMPUTER OR/VE CONTR 1 85 



COMMUNICATIONS SPECIAL 

MTERM: SMART TERMINAL PROGRAM AND 
VOLKSMODEM: 300BD MODEM MOD 1/3 



PRINTERS 

STAR GEMINI 10X 
STAR GEMINI 15X 
STAR DELTA 10 
STAR DELTA 15 
STAR RADIX 10 
STAR RADIX 15 
STAR POWERTYPE 

EPSON RX 80/FT 
EPSON RX 100 
EPSON EX 80 
EPSON FX 100 
EPSON LQ 1500 

OKIDATA 82A 
OKI DATA 83 A 
OKIDATA 92 
OKIDATA 93 
OKIDATA 84 
OKIDATA 2410 

C-ITOH8510AP 
C-ITOH 8510 
C-ITOH 1550 
C-ITOH 7500 
C-ITOH A-10 
C-ITOH F-10 40CPS 
C-ITOH F-10 55CPS 

JUKI 6100 
JUKI 6300 

TOSHIBA 1340 
TOSHIBA 1351 

SILVER-REED 400 
SILVER-REED 500 
SILVER-REED 550 
SILVER-REED 770 

PANASONIC 1090 
PANASONIC 1092 
PANASONIC 1091 
PANASONIC 1093 

LEGEND 880 
LEGEND 1200 



S235 
345 

315 
435 
495 
550 
315 

230 
375 
385 
555 
1085 

289 
5O0 
365 

575 

650 

1775 

329 
345 
520 
280 
479 
889 
1089 

385 



759 
1199 

275 
315 
399 
799 

195 
435 
265 
675 

255 
289 



MODEMS 

HAYES: 300 

.300/1200 
ANCHOR VOLKSMODEM 300BD 
VOLKSMODEM 120BD 
MARK X AUTO 300BD 
. MARK XII AUTO 300/1200 

ACCOUNTING SPECIAL 

GENERAL LEDGER. ACCOUNTS REC, 
ACCOUNTS PAY.. CHECK REGISTER 
INTEGRATED SYSTEM 

DISK DRIVES (BARE) 

TANDON 50-1 40TRS/S 

55-4 80 TR D/S 

100-1 40TRS/S 

100-2 40TRD/S 

100-4 80TRD/S 
FULL SIZE CASES 4 PWR SUP 

TEAC 55B 40 TR S/S 

55F 80 TR D/S 

CHINON 40 TR S/S 

MATSHUSHITA 40 TR D/S 

SLIMLINE PWR SUP 4 CASE/DUAL 

MONITORS 

AMDEK- 300 GREEN 
300 AMBER 
COLOR 1 + 
COLOR 2+ 
COLOR 600 
COLOR 700 

TAXAN 1 2" AMBER 
12" GREEN 
RBG III 

TRS 80 SOFTWARE 

LAZYWRITER W.P 

NEWSCRIPT 

ELECTRIC WEBSTER 

HYPEN-GRAMMAR 

MULTI-DOS 

DOS PLUS 3- 5 

DOS PLUS 4A 

SUPER UTILITY 

MTERM 

OMNITERM 



S205 
465 
59 
199 
125 
229 



ONLY S299 



S99 
150 
129 
160 
165 
47 
129 
160 

129 
180 

47/58 



$119 
129 
235 
349 
420 
525 

119 
115 
385 



$90 
78 
99 
40 
49 
49 

105 
60 
50 
63 



24 HOUR TOLL FREE ORDERS 

VISA/MASTER CHARGE ONLY: 

(800) 633-2252 EXT. 720 

ALL QUESTIONS: (31 3) 538-1 1 1 2 

MICHIGAN RESIDENTS ADD 4% SALES TAX- 
SHIPPING. CALL FOR CHARGES. PRICES ARE 
DISCOUNTED FOR CASH AND MONEY ORDER 
(NON CERTIFIED CHECKS ALL 2 WEEKS TO 
CLEAR) MASTER CARD AND VISA ADD 3% NO 
COD. NO NET TERMS. 



VF^PACOMPUTER OUTLET 



80 Micro, Marcft 1985 • 71 



HAS YOUR 

COMPUTER SUPPLIER 

DESERTED 

YOU? 



Look no further. 

Perry Computers can meet all 

your needs for major brand items. 



Perry Computers has been in the computer 
business for seven years, and will be there 
when you need us. We don't believe In 
deserting you. 

Shop With us Toll Free - Simply call our Ton 
f-'ee number 'o oiace your order Our 
knowledgeable & courteous it •-'•' w be q ad to 
take your order and answer you . n ' ■ 

Choose From Top Quality Merchandise - A, I 

mercnand.se sold Dy Perry Computer is f n 
brand witn manufacturer's warranty An Items are 
the same as you would buy locally. 100% 
original, no upgrades i f a oroDiem does occur 
just call us on ou Customer Service Hotline 
517-625-4268. 

FOR ORDERS CALL 1-800-248-3823 



Circle U3 on Reader Serv ce card 



□□□□□ 
□□□□□ 



Watch For Monthly Specials - On a variety 
• . . are stepping up 
■ ore powerful system, expanding or a first 
time user, be sure to call about products and 

. 

Name Brands - RADIO SHACK. EPSON, 
COLUMB.A. SANYO. COMREX. OKIDATA. 
TRANSTAR. STAR, AMDEK. BOTEK. ELEPHANT. 
HAYES. VERBATIM, JUKI. SCOTCH. GORILLA 
VIDEO PLUS. TELEWRITER. VIP TOM MIX. 
C ITOH. SKC, MANNESMAN TALLY. ANCHOR 
SIGNALMAN. IDS, KEYTRONICS, MOUSE 
SYSTEMS. PRINCETON GRAPHICS. ANADEK, 
CARDCO. TOSHIBA. ORANGE MICRO. 
MICROBUFFER AND MORE if you don't see 
what you're looking for. give us a call If at all 
possible we'll get if for you 



137 N MAIN, PO BOX 156, PERRY, Ml 48872 



Circle 124 on Reader Service card. 



□□□□□ 
□□□□□ 

■■■na 
anann 

DDDDn 




g[IDD?a]UQQ!B 



TRS-80 COMPUTERS 
100% PURE RADIO SHACK 



CALL TOLL-FREE 1-800-248-3823 




TANDY 2000 



TANDY 1200 



26 - 5 1 03 Tandy 2000 Two Disk 

26-5104 Tandy 2000 iDiskand 10 Meg HD 

26-511 1 Monochrome Monitor 

26-5112 Color Monitor 

26-5140 Hi Res Graphic Monochrome Board 

26-5141 Hi Res Color Graphics Chip 

26-5160 Internal 128K Kit 

26-5311 Microsoft Muldplan 

26-5352 dBase II (Data Base) 

26-5330 Multmate 



LIST 


OUR 




PRICE 


PRICE 




$2750 00 


$2175 00 


25-3000 


$4250 00 


$347500 


25-3010 


$ 249.00 


$ 17500 


26-3212 


$ 799 00 


$ 549 00 


25-3040 


$ 499 00 


$ 349 00 


25-3043 


$ 19900 


$ 145 00 


25-3044 


$ 299 00 


$ 250 00 


25-3061 


$ 195 00 


$ 16600 


25-3130 


$ 595 00 


$ 420 00 


25-3170 


$ 249 00 


$ 205 00 


25-3160 



Tandy 1200 1 Disk and 10 Meg HD 

VM-3 Green Monitor 

CM-2 Color Monitor 

Monochrome Display Adapter 

Graphics Display Adapter 

Graphics Master 

Captain Multifunction Board 

MSDOS/BASIC 

WordStar Professional 

Framework 



MODEL 4 COMPUTERS 



BUSINESS COMPUTERS 



26-1069 Model 4 64K 2 Drive Computer 
26 - 1 080 Model 4P 64K Portable Computer 
26-1 122 64K Memory Expansion 
26-1127 Model 4 Internal Drivel 
26- 11 23 Model 3 to Model 4 Upgrade Kit 
26-1084 Model 4P Modem Board 
26-1595 Super Scnpsil Model 4 
26-1635 Profile 4 Model 4 
26-2216 CP/M Plus Model 4 



LIST 




OUR 




PRICE 




>RICE 




1299 00 


S 


950 00 


26-4005 


1299 00 


s 


950 00 


26-6004 


79 95 


s 


75 00 


26-6005 


499 95 


s 


415 00 


26-6006 


799 00 


$ 


675 00 


26-6017 


149 00 


s 


127 00 


26-4155 


199 95 


s 


169 00 


26-4168 


249 95 


$ 


21200 


26-4171 


149 00 


$ 


127 00 


26-4157 



Model 12 80K 2 Drive Computer 
Model 16B256K 1 Drive Computer 
Model 16B 256K 2 Drive Computer 
Model 168 256K i5Meg HD 
Card Cage For Model 12 
15 Meg Hard Drive Primary 
30 Meg Hard Drive Primary 
35 Meg Hard Drive Primary 
Installation Kit for Primary HD 



MODEL 100 COMPUTERS 



COLOR COMPUTERS 







LIST 


OUR 




PRICE 


PRICE 


26 


3801 8K Model 100 Computer 


$ 399 00 


$ 339 CO 


26 


3802 24K Model 100 Computer 


$ 599 00 


$ 509 00 


26 


3804 AC Adaptor 


$ 5 95 


$ 500 


26 


3805 Accoustic Coupler 


$ 39 95 


$ 34 00 


26 


3816 8K RAM Memory Expansion Chip 


$ 119 95 


$ 95 00 


26 


1409 Printer Cable 


$ 1495 


$ 1270 


26 


1410 Modem Cable 


$ 19 95 


$ 17 00 


26 


3809 Briefcase 


$ 4995 


$ 4250 


26 


1 1 83 Bar Code Reader 


$ 9995 


$ 8500 


26 


3806 Disk Video Interface 


$ 799 00 


$ 660 00 



LIST OUR 

PRICE PRICE 

26- 31 27 64K Extended Color Computer 2. . $19995 $169.00 

26-3136 16K Extended Color Computer 2 $13995 $12000 

26-3029 Disk Drive O for Color Computer $349 95 $295 00 

26-1161 Disk Drive 1.2. 3. for Color Computer $279 95 $230 00 

26-3018 Extended Basic Kit $ 39 95 $ 34 00 

26-3030 OS-9 With Editor Assembler $ 69 95 $ 59.50 

VIP Writer $ 59 .00 

VIP CalC $ 49.00 

Telewriter Disk $ 59.00 

Botek Interlace $ 57.00 



RADIO SHACK PRINTERS 



OTHER MAJOR BRANDS 



26-1276 DMP-105 Dot Matrix Printer 
26-1275 TRP-100 Portable Thermal Printer 
26-1271 DMP- 110 50/25 CpS Printer 
26-1255 DMP 120 Printer 120cps Matrix 
26-1257 DWP-210 Ucps Daisy Wheel . 
26-1277 DMP-430 24 Wire Matrix Printer 
26-1270 DWP-510 43cps Daisy Wheel 
26-1274 DMP-2100P 24 Wire DOT Matrix 



LIST 
PRICE 

$ 199 00 
$ 299 00 
$ 399 00 
$ 499.00 
$ 599 00 
$ 899 00 
$1495 00 
$1995 00 



OUR 
PRICE 

$ 169 00 
$ 230 00 
$ 299 00 
$ 385 00 
$ 485 00 
$ 745 00 
$1225 00 
$1650 00 



OUR 

COMPUTERS price 

Sanyo $ Call 

Columbia $ Call 

Epson $ Call 

Franklin $ Call 

Software $ Can 



OUR 

PRINTERS price 

Epson $ Call 

C.ltoh $ CaH 

OkkJata $ Call 

Star (Gemini) $ Call 

Hayes Modems $ Call 



FOR ORDERS CALL 1 -800 248-3823 ^^^^i^n^^UTTET, ""*•*•'*• FOR INFORMATION CALL 1-517-625-4161 



MihMW IMC. VtU. AH. »M J% 



m .nhd-i-n *tn-„< "WC. »C 



m «r »CM*I p«c*a Pq* ■**! » !"#. ■« 2 



nihw^c^,,!) MlCOD >cr*c(M |M OO ch.r fl « »«. ctnan f» 



137 RLfllMN 



80 Micro, March 1985 • 73 



BUSINESS 



by Robert C. Lake, Mary R. Golden, and Samuel L. Lett 



Reasonable 
Deductions 



Uncle Sain is tightening the reins on home computer tax deductions. 
Three tax experts explain what's allowed and what isn't. 



As you prepare your federal in- 
come tax return, you should 
be aware of some important 
tax code changes affecting personal 
computer owners. In an attempt to curb 
taxpayer abuses, Congress severely lim- 
ited home computer deductions in the 
Tax Reform Act of 1984. The new law 
makes it harder to qualify for a deduc- 
tion and, in some cases, changes the 
amount you can deduct. 

Many home computer costs are still 
deductible, however. In this article, we'll 
review the new deduction criteria and 
explain the kinds of deductions and tax 
credits you can claim. 

Business Costs 

In general, you can deduct computer 
costs relating to a business or trade, in- 
cluding employee business expenses and 
certain education expenses. However, 
the new law strictly limits trade or busi- 
ness deductions if you don't use a com- 
puter exclusively at a regular business 
establishment. 



To qualify for a home office deduc- 
tion, you must use a separate area of 
your home exclusively for business. The 
home office must be a principal place of 
business; for example, if you take work 
home from the office on weekends, 
your home study doesn't qualify as a 
home office. 

If you earn secondary income through 
a home business, such as selling Avon 
or Amway products, and you use a 
room at home exclusively for this busi- 
ness, you qualify for a home office 
deduction. 

Trade or business activity could in- 
clude writing programs for money or 
computer consulting. The big danger 
here is that the Internal Revenue Service 
(IRS) might consider this activity a hob- 
by rather than a business (although 
hobby costs might also be deductible; 
see the section below on personal use). 

To determine whether an activity is a 
hobby or a profit-seeking venture, the 
IRS takes into account your intentions, 
whether you conduct the activity in a 



19*4 


Start 


Stop 






Date 


Time 


Time 


Hardware/Software L'sed 


Purpose and Comments 


9/17 


5:00p 


7:30p 


Tax Planner, Printer 


Calculate third quarter 
estimate 


9/18 


11:00a 


2:30p 


1-2-3 Printer, Modem 


Portfolio analysis 


9/18 


4:00p 


5:00p 


Space Commander, etc. 


Entertainment 


9/19 


7:00p 


9:30p 


WordStar 


Type bulletin for local 
professional organization 


9/20 


7:30p 


8:00p 


WordStar 


Update mailing list for 
bulletin 


9/22 


10:00a 


1:300 


1-2-3 


Design template for 
possible resale 






Figure. Sample log of computer use. 



businesslike way, your expertise, the 
time and effort you spend, the activity's 
profitability, and whether the activity is 
recreational. The tax code presumes that 
an activity is for profit, qualifying as a 
trade or business, if it's profitable in at 
least two of the five consecutive years 
ending with the tax year in question. 

Under the new law, an employee may 
deduct home computer costs only if the 
computer is for his employer's conve- 
nience and is required as a condition of 
employment. 

Income Production Costs 

In addition to business costs, you can 
also deduct the cost of producing or 
collecting income; managing, conserv- 
ing, or maintaining income property; or 
determining any tax. Deductible com- 
puter expenses, then, could include us- 
ing a personal computer to monitor ren- 
tal property maintenance, analyze an 
investment portfolio, keep tax records, 
or do tax planning. 

Personal Costs 

Personal use of a computer usually 
doesn't qualify for tax benefits. For ex- 
ample, if you use your computer solely 
for games, recipe storage, and house- 
hold budgeting, your costs aren't de- 
ductible. However, in some cases you 
can deduct the cost of using a computer 
for medical reasons, charitable service, 
or as a revenue-producing hobby. 

Deductible medical uses include 
treating a child's learning disability or 
computer-aided physical therapy. Cer- 
tain computer uses by a handicapped 
person also qualify. Usually, a physi- 
cian must prescribe these medical com- 
puter uses. 



74 • 80 Micro, March 1985 



If you provide computer services to a 
charitable organization you can deduct 
some out-of-pocket costs. For example, 
a program for maintaining church 
pledge records is a deductible expense, 
and so are supplies like disks and printer 
paper. You can't deduct the cost of 
your computer, however, since capital 
expenditures aren't considered out-of- 
pocket expenses. 

You can deduct hobby expenses if 
your hobby also produces revenue. If 
you use your computer to conduct gene- 
alogical research as a hobby and you 
derive some income from your re- 
search, you may deduct your costs, in- 
cluding the computer's cost, to offset 
the income you earn. 

Allowable Deductions 

If your computer use falls into one of 
the categories described above, you may 
claim a deduction for cost recovery or 
depreciation, Section 179 expensing (see 
below), and other expenses. Also, you 
can claim a tax credit equal to a portion 
of your computer's cost. 

If you use your computer for several 
activities, your deductions or credits ap- 
ply only to qualified uses. For example, 
a taxpayer who uses a computer 80 per- 
cent for business and 20 percent for per- 
sonal purposes may deduct only 80 per- 
cent of his costs. 

Cost Recovery or Depreciation 

The cost of a personal computer is 
usually considered a capital expenditure 
and you can't fully deduct it in the year 
of purchase. Instead, you must spread 
your deduction over a number of years, 
either five or 12, depending on how you 
use your computer. The five-year meth- 
od falls under the accelerated cost recov- 
ery system (ACRS) and a 12-year write- 
off is called a straight-line write-off. 

Before the 1984 Tax Reform Act, all 
qualifying computer owners could use 
the five-year cost recovery schedule. 
However, under the new law, if you 
bought your computer after June 18, 
1984, you must use it predominantly 
(that is, more than half the time) for 
business in order to qualify for the 
ACRS deduction. If you use your com- 
puter less than half the time for busi- 
ness, you must take your deduction 
over 12 years. 

Under ACRS, the maximum deduc- 
tion in the purchase year is 15 percent of 
the cost, no matter when during the year 
you bought the computer. The second 
year's maximum deduction is 22 per- 
cent; in each of the third, fourth, and 
fifth years the maximum deduction is 21 
percent. 



Under ACRS, the 

maximum deduction in 

the purchase year is 

15 percent, no matter 

when during the year 

you bought the computer. 



The cost you can recover is the orig- 
inal purchase price, including taxes, 
freight, and so on, adjusted for any Sec- 
tion 179 expensing or investment credit 
(see below). This amount is the maxi- 
mum deduction; your actual deduction 
must also take into account the propor- 
tion of qualifying use. For example, if 
you use your computer 60 percent for 
business and 40 percent for personal 
reasons, you may take only 60 percent 
of the maximum deduction. 

Investment-related activities don't 
count in determining whether you meet 
the rninimum 50 percent business thresh- 
old. However, if you use your per- 
sonal computer more than half the time 
for business activities, investment use 
counts when computing ACRS deduc- 
tions. A taxpayer who uses a computer 
75 percent for his business and 10 per- 
cent to monitor rental property main- 
tenance may deduct 85 percent of the 
maximum. 

If you bought your computer after 
June 18, 1984, and don't use it predom- 
inantly for business, your maximum an- 
nual deduction is l /u of its cost. In the 
first year, however, you may take only a 
half-year's deduction, or V u of the cost. 
You base depreciation on the original 
price with no reduction for any invest- 
ment tax credit. Again, though, this is 
the maximum possible deduction. Your 
actual deduction depends on the per- 
centage of qualifying use. 

In addition to the ACRS deduction, 
you can claim an investment tax credit 
of up to 10 percent of the cost of a per- 
sonal computer used predominantly for 
business. You must reduce the cost you 
recover under ACRS by half the amount 
of your credit. If you use your computer 
only 60 percent for business, your credit 
is limited to 60 percent of the maximum. 

Under Section 179 of the tax code, an 
immediate write-off is also available to 
computer owners who use their system 
predominantly for a trade or business. 
This gives you the option of deducting 
up to $5,000 of qualifying capital ex- 
penditures in the year of purchase, 
rather than spreading the deduction 
over a number of years. 



Assume you bought a home computer 
in October 1984 for $6,000 and used it 
80 percent of the time for a consulting 
business. You may choose to deduct 
$4,800 of the cost ($6,000 times 80 per- 
cent) in 1984. You must spread the re- 
maining $1200 deduction over five 
years. 

Two examples will illustrate the tax 
options available to a personal com- 
puter buyer. Taxpayer A bought a com- 
puter for $3,500 in October 1984. He 
uses it 60 percent for business and 10 
percent for investment-related activ- 
ities. The remaining 30 percent is for 
personal use. He has the following al- 
ternatives in 1984: 

• Deduct $2,450 ($3,500 times 70 per- 
cent) under Section 179. 

• Claim a $245 ($3,500 times 10 percent 
times 70 percent) investment tax credit 
and deduct $349 ((($3,500 times 70 per- 
cent)- 1 /! of $245) times (15 percent 
ACRS allowance)) cost recovery. 

Taxpayer B bought a personal com- 
puter for $1,500 in September 1984. She 
uses her computer 25 percent for invest- 
ment-related activities, the rest of the 
time for games and other personal pur- 
poses. She's limited to the following 
deduction in 1984: 

• Straight-line depreciation of $16 
($1,500 divided by 12 years times Vi first- 
year limit times 25 percent use). She can't 
claim an investment tax credit or take ad- 
vantage of Section 179 expensing. 

Other Expenses 

Tax rulings for other computer ex- 
penses, like software and supplies, de- 
pend on how you buy and use the 
products. Bundled software, that is, 
software sold along with a computer, is 
treated as part of the computer cost for 
tax purposes. The rules for hardware, 
outlined above, also apply to bundled 
software. 

Programs sold separately are treated 
as a separate asset. You can deduct their 
costs only if you use the software in a 
trade or business, for investment-re- 
lated activities, for preparing or deter- 
mining taxes, or for those personal uses 
specifically allowed as deductions (see 
above). 

You must take your deduction on a 
straight-line basis over five years or the 
software's expected useful life, which- 
ever is less. Certain programs, such as 
tax planning software, often have a use- 
ful life of only one year; you can deduct 
their cost in the year you buy them. 

You should allocate the cost of multi- 
purpose software based on use; if you 
use a spreadsheet program one-half the 

80 Micro, March 1985 • 75 



time for household budgeting and one- 
half for investments, you may deduct 
half its cost. 

Supplies like disks, printer ribbons, 
and paper are usually deductible in the 
year of purchase, but only to the extent 
you use them in qualifying activities. 

You can deduct other expenses, such 
as computer books and periodicals, as 
long as they're necessary to your trade, 
business, or investment activities. 

Changes in Usage 

If your ratio of business to personal 
computer use changes in later years, 
you may have to compensate for a por- 
tion of the deductions or credits you 
claimed in earlier years. This is called re- 
capturing, and it requires that you re- 
port amounts previously deducted as in- 
come for the current tax year. 

Record-Keeping Requirements 

In addition to setting new limits on 
the amounts of deductions available to 
personal computer owners, the 1984 tax 
law also mandates certain record-keep- 
ing procedures. In tax years after 1984, 
you must be able to substantiate by con- 
temporaneous records any deductions 
or credits relating to computer owner- 



ship. The records should accurately in- 
dicate the business purpose of computer 
use, work done, and the date and time. 
A log like that shown in the Figure 
should fulfill these requirements. 

The law also requires tax preparers to 
certify that taxpayers claiming personal 
computer deductions have indicated the 
existence of adequate documentation. 

Failure to comply with the records re- 
quirement could lead to penalties for 
negligence, or even fraud. 

Preparing Returns 

You should list information about 
your computer and calculate cost recov- 
ery or a depreciation deduction on IRS 
Form 4562. You can then claim a de- 
duction for cost recovery, depreciation, 
and Section 179 expensing in one of 
three places on your tax return. 

Use Schedule C (Self-Employment 
Income) for trade or business claims 
and Schedule E (Other Income) for de- 
ductions relating to rental or royalty in- 
come. Claim other deductions on Sche- 
dule A (Itemized Deductions). Itemized 
deductions could include medical use, 
charitable contributions, investment ac- 
tivities other than those related to real 
estate or royalty income, and costs in- 



curred in determining taxes. You may 
take Schedule C and Schedule E deduc- 
tions whether you itemize or not; 
Schedule A deductions apply only if 
you itemize. 

Summary 

To gain the maximum possible tax 
benefit from computer ownership, you 
must monitor and document computer 
use and maintain qualified use. If you 
do so, your tax savings can be signifi- 
cant, despite the tax code's new restric- 
tions. ■ 



The authors teach accounting at A u- 
burn University at Montgomery; all are 
certified public accountants and ex- 
perienced tax advisors. You can contact 
them at Auburn University at Mont- 
gomery, Montgomery, AL 36193. 



Related Articles 

Aihanasiou, Robert. "The Taxman Cometh." Janu- 
ary 1984, p. 100. A Model I/III program thai records 
income and deductions. 

Blechman, Fred. "A Bout with the I.R.S.," Septem- 
ber 1980, p. 58. How computerized recordkeeping 
helped a Model I owner through a tax audit. 



Circle 256 on Reader Service card. 



*iLE 

FILE MANAGEMENT SOFTWARE FOR YOUR 
MODEL 1, 111, 1V, LNW, AND LIKE MACHINES 

System written in Z80 assembly language for speed. 

Makes extensive use of online help menus (at any time 

with the touch of a single key) to insure easy operation. 

The FORM program allows you to structure your forms 

to fit your needs. Only field length restriction is screen 

size. Up to 135 fields per form. 

Loading data with the FILE program is a snap, and 

you'll find working with the resultant records actually a 

pleasure due to the many ways provided for locating 

desired records. Retrieved records can be displayed, 

selected fields printed, or selected fields can be totaled 

and averaged. 

YOU CAN PAY MUCH MORE FOR FILE MANAGEMENT SOFTWARE 

SYSTEMS, BUT BEFORE YOU DO, TAKE ADVANTAGE OF THIS 

MONEY BACK GUARANTEE TO TRY FORM-n-FILE. YOU HAVE 

NOTHING TO LOSE BUT YOUR DISORGANIZED DATA!!! 

Package includes a 514" single sided, double density 

diskette (unless otherwise requested) and a user's man- 

uel. 

Mail check or 

money order to: ATTN: NORM DRYE 

E-SOFT SYSTEMS 
HCR 1, BOX 115G 
PHONE 218/547-1381 WALKER, MN. 56484 



Circle 186 on Reader Service card. 



^ 






^y 



h 



PROfix*lll™ 



RESTRUCTURE & TRANSFER 

UTILITY 

$49.95 



For PROFILE* III PLUS 

Model Ml/4 ^ 



so 



^O^ For PROFILE PLUS 
Model 1 1/1 2 



Needs change — Experience teaches-and if you could redefine your data base 
today, you probably would change a few things — 

Will, NOW YOU CAN'. 
PROfix'lll Provides you. as a user of Profile III Plus, with a powerful, easy- 
to-use package that allows you to reorganize your data base TO MEET 
TODAY'S NEEDS and then moves your existing data into your new tile struc 
ture 

* * * FEATURES * * * 

• EASY TO USE —no special charts to fill out 

• FAST — assembly language speed 

• REARRANGE FIELDS-even across segments 

• DROP OR ADD FIELDS 

• CHANCE FIELD LENGTHS- R.1 lustify data 

• CHANCE NUMBER OF SEGMENTS 

• CREATE SORTED FILE -drop deleted fields 

• LITERAL INSERTION-specified fields 

• COMPLETE USER MANUAL -with examples 

TO ORDER- SEND S4995MODEL 1 1 1/4 

SEND S89 95 MODEL 1 1 '2 

Plus J2 50 for Handling and Postage 

Check. MO. VISA/MC 

(for charge card, give expiration date, number) 

-To- 

BLUE RtOGE SOFTWARE 

250 Chesterfield Road 

Lynchburg. VA 24502 

For phone orders or more information 

Call (804) 2390574 $1 00 off on phone orders' 

Virginia residents add 4% sales tax 

Most orders filled within 24 hours 

(allow 2 weeks for checks to clear) 

Profile IRSDOS, LDOS are is a registered trademark of Tandy Corp 

LDOS is a registered trademark ot Logical System lrw PLEASE SPECIFY VERSION 



76 • 80 Micro, March 1985 



Circle 112 on Reader Service card. 



SOFTWARE PRICE WAR 



30 DAY MONEY BACK GUARANTEE 



Now available JOE LYNN'S PAYROLL SYSTEM for the 

MODEL 1200 & MOST IBM PC COMPATABLES ON MSDOS 

Assemble language runs much faster. Same user friendly menu driven features as the model 
Ml/4 version PLUS will run automatic or manual payrolls. Number of employees limited by 
available disk space. 1K per employee. Sample diskette with complete documentation for 
$9.95. 

THIS IS A SAMPLE OF MY MAIL: 

"Your payroll program is great - 1 use it for all my accounts - it's quite a time saver" 

K.A. Hampton, NJ 
"I received you PAYROLL program & find it very easy to work with. It is to bad that all 
programs that are written are not made this easy to work with." V.S. Matoon, IL 
"Your PAYROLL program is the best thing that's happened to us in years." 

B.M. Capitola, CA 
"The program is just great for my small business & runs without a hitch." 

R.W.H. Evergreen, CO 



The following systems are still available for the 
Model III/4 on a TRSDOS 1.3 system diskette. 

LYNN'S PAYROLL SYSTEM 

Complete record keeping & payroll calculation. 
Prints detailed 941 form, paychecks & W-2's. 

LYNN'S ACCOUNTS RECEIVABLE 
SYSTEM 

Single entry — open invoice system. Prints invoice and 
statements. Built in aging report. 

LYNN'S CHECK REGISTER SYSTEM 

Prints checks. Register for any month, reconcilliation 

statement 

1 ,000 checks per month — 220 expense accounts. 

LYNN'S TRSDOS UTILITY 
PROGRAMS 

For TRSDOS 1.3 includes short directory (file names only), 
cursor directory (allows cursor access to CMD, BASIC, and 
"DO" Files), and a 2K Print Spooler. 

LYNN'S E-Z MAIL SYSTEM 

Sort by name, zip code, state. 2250 names. E-Z edit. 

LYNN'S MAILING LIST 

$ 19 95 EACH DISKETTE 
Over 2.000 names on a diskette. East half or west half of U.S. 
can be used with Lynn's E-Z mail. 

Joe Lynn 



^ff^S 



Computer Services 

23501 W. Gagne Lane 

Plainfield, Illinois 60544 

815/436-4477 




Please Send Me: 

□ JOE LYNNS PAYROLL SYSTEM for MSDOS . . . 49.95 

D Sample Payroll for MSDOS g 95 

O Lynn's Payroll System on TRSDOS 13 29.95 

□ Lynn's Accounts Receivable on TRSDOS 1.3 .... 29.95 

D Lynn's Check Register on TRSDOS 13 29.95 

D Lynns TRSDOS 1 .3 Utility on TRSDOS 1 .3 19.95 

□ Lynn's E-Z Mail on TRSDOS 1 .3 29.95 

□ Lynn's Mailing List East formatted TRSDOS 1.3 .. 19.95 

□ Lynn's Mailing List West formatted TRSDOS 1 .3 19.95 

D VERBATIM Diskettes (box of 10) 20.00 

D I'm Really interested. Please send more information. 

Shipping & Handling 3 qtj 

If COD please add $2.50. if Credit Card Add 5% 

Illinois residents add 6.25% sales tax 

to Diskettes only 

(software is exempt from sales tax) 
Total Amount Enclosed 



□ Check/mo 

CARD« . 



□ Visa D MC D COD 

EXP DATE 



SIGNATURE 
NAME 



PHONE". 



ADDRESS 
CITY 



STATE. 



.ZIP. 



JOE LYNN COMPUTER SERVICES 
23501 W. Gagne Lane • Plainfield, IL 60544 



80 Micro, March 1985 • 77 



KArmo WEQ 






TOLL FREE 1-800-321-3552 




IN OHIO & OTHER INQUIRIES 216-481-5515 



=s>*bvy 



SANYO 



^^===-* Hayes' 



EPSON 
OKIDATABASF 

IF ANYTHING ^^ 



BEATS OUR SELECTION, 




OUR PRICES! 



YOUR REFERENCE GUIDE FOR TANDY 1000-IBM-IBM COMPATIBLES 



■ 
I 



il 



UPGRADES 

64 K Memory 4 1 64 S 

16K 4 1 16. 200NS 

AST Six Pack Plus OK 
AST Six Pack Plus 64 K 
Quadram Quadboard OK 
Quadram Quadboard 64K 
Quadram Quadcolor 
Persyst Graphics Brd . . 
Persyst Mono.' Parallel 
Hercules Graphics Board 
Techmar Color/ Parallel 

MONITORS 

Amdek 300 Green 

Amdek 300 Amber 

Amdek 310 Amber 

Zenith 122A 109.00 

Zenith 124A 159.00 

Quadram Quadchrome 

RGB 499.00 

Taxan 420 RGB 499.00 

MODEMS 

Hayes Smartmodem 300 $229.00 
Hayes Smartmodem 1200 549.00 

Hayes Smartmodem 

1200B 469.00 

Hayes Micromodem lie 269.00 

Volksmodem 69.00 

Signalman Mark VII 109.00 

Signalman Mark XII 299.00 

Popcorn X 100 399.00 

Popcorn C100 379.00 




PCX 

10 MEGABYTE 
HARD DRIVE 



I 



: 



■ 

I 



DISKETTES 

3M 

5' 4 TS/OD/SS - Box of 10 $19.95 
S\, 2S/DD/SS - Box of 10 31.95 
Purchase 10 boxes of disks and you 
pay only $18.95 per box 

Verbatim 

S\" MDS25-01 IS/D Den 

(box Of 10) ST9.95 

t% 2S/D Den(MD550-01) 31.95 
5\" 2S/4 Den (MDS57-01) . .49.90 
8 1S/D Den (FD34-8000) .43.95 



$2995 



NOW ONLY 

Includes MDS controller. 10 megabyte hard drive and 
memory, CPU. IBM keyboard, 256K RAM, mono/- 
parallel board, monitor and single 320K floppy drive. 
Easily expandable. 



DISKIT IN 

MODEL III & IV Aslowa 

DISK UPGRADE $"J 99 

DISKIT III wo Drives 1 9900 

DISKIT III 

w/one Teac 55A 40 Track Drive '34S.00 
DISKIT III 

wtwo Teac SSA 40 Track Drive M95. 00 
DISKIT III 

w/two Teac 558 40/40 Dual Drive «595 00 

ADD '10.00 EA. FOR TANDON DRIVES 

NOW ADD UP TO 4 INTERNAL DISK DRIVES TO 
A RADIO SHACK MODEL 3 & MODEL 4. UP TO 
1.3 MEGABYTES OF DISK STORAGE! 
• Gold Plated Edge Connectors • Metal Disk Drive Brackets • All 
Hardware and Cables • Switching Power Supply ' 1 hour or 
less lor installation • 40 80 Track supported * Single Dual 
head supported • JOO-^ compatible • No Soldering needed • 180 
days warranty on Controller ^ 




MODEL III & IV 
RS-232 Communication 

RS-232 »59.95 

Direct replacement for RS-2332. fully tested 
and burned in, easy installation, 120 day warranty. 



SOFTWARE-IBM 

DBase // 5329.00 

DBase II - DBase III 

Upgrade 150.00 

DBase III 499.00 

Framework 499.00 

Dollars & Sense 129.00 

Flight Simulator 39.00 

Knoware 79.00 

Lotus 123 329.00 

Lotus 123 ■ Symphony 

Upgrade J50.00 

Lotus Symphony 499.00 

Mastertype 39.00 

Microsoft Word w Mouse 319.00 

Multimate 329.00 

Open Access 389.00 

PFS:Access 69.00 

PFS.File 99.00 

PFSProot 69.00 

PFS: Report 99.00 

PFS Write 99.00 

RBase 4000 349.00 

R8ase Clout J45.00 

HSase Extended Report 109.00 

Wordstar 239.00 

DRIVES 

TEAC 55A 40 TRK 5*49.00 

TEAC 558 40/40 TRK 199.00 

Tandon TM100-1 

40 TRK 149.00 

Tandon TM 100-2 

40 40 TRK 219.00 

Tandon TM 100-4 

80/80 TRK 319.00 

Datamac 10 Megabyte 999.00 

Datamac 30 Megabyte 1949.00 

10 Meg Internal Drive 

w Controller 895.00 

" DRIVE PARTS F0RTAND0N. ' 
TEAC, MPI CALL FOR PRICES! 



TAND0NSOQ95 



I 

I 

| 

I 

« 
i 



DRIVES 
REPAIRED 



Plus Paris 
& Shipping 



ADD $3 00 FOR 
SHIPPING 
A HANDLING 
S6.00 Eilra lor 
C.O.D. Ord«r» 
Ohio Resictent s 
Add 6 V. Sales Tax 



DATA SUPPLIES 



22295 Euclid Ave. 
Euclid, Ohio 44117 



WE ACCEPT 

• VIM 

• Mastercard 

• Checks 

• Money Orders 

• C.O.D. 



A SUBSIDIARY OF THE COMPUTER WAREHOUSE. INC. OF OHIO 




I 
I 

I 
I 



I 



EPSON 

RX80 

wo cps *269 

Tractor paper feed 
128 Typestyles 
7 graphic modes 
Proportional space 
10" carriage 



EPSON 

FX100 

$659 

• 160 cps 

• Tractor paper teed 

• 128 Typestyles 

• 7 graphic modes 

• Proportional space 

• 15" carrriage 




TOLL FREE 1-800-321-3552 

IN OHIO & OTHER INQUIRIES 216-481-5515 



liiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiMiiiiiiiiiiiiiiiiiiiriiiiiiiiiiiiiiiiiiiiiiiiiiin^ 

When you call MDS you receive 
s !he fastest delivery available any- 
S where We now have a bigger and 
I better facility to serve you in the 

most efficient way possible Call us. 
= you'll be glad you did 

milllllllllllllllllllllllllllllilllllllllllllllllillllllllllllllllllllllllllllllllllllllilllllllri 




EPSON FX80 
$449 



760 CPS. 
10 carriage 



EPSON LQ 1 500 



includes parallel interface, 200 
CPS, bi-directional, sheet 
feeders available. $-1 -1 QQ 



CP/M 

Exclusively for the 

Model 4 

Montezuma Micro 

Includes INTERCHANGE: a utility that allows reading, 
writing and copying 20 different manufacturer's disk 
formats such as IBM. KAYPRO. OSBORNE. XEROX, etc 
Complete with the following CPM utilities: ASM. DDT. 
DUMP. ED. LOAD. PIP. STAT and SYSGEN 
Includes MODEM 7. a powerful public domain communi- 
cations program tor file transfer and remote data base 
access. 

Supports 80 x 24 video, reverse video, direct cursor 
addressing and more. 

Utilizes the Model 4 function keys and allows user 
defined keys. 

Auto execute command tor turnkey applications. 
FORMAT utility permits up to 52 disk formats to be 
constructed, all menu drive. 



$159.95 



ELECTRIC 
WEBSTER 



Complete 
System 



S189. 



Le Script 

Model l-lll & IV 
S104. 95 



NEWDOS/80 
Version 2.0 

MOD I or III S89. ,b 




OK'DATA 92 



The most advanced 
dot matrix printer 
m its price range. 




OKIDAIA 93 



J 



'60 cps 

Tractor paper reed 

Proportions! space 

T5 carriage 



*679 




COMREX II 

13 CPS Printer *HO\3 



COMREX III 
STAR GEMINI !5 
SIAR DELTA 10 
OKIDATA 8? 
OKIDAIA 93 
OKIDATA 84 
NEC 8023 
NEC 2030 
NEC 3530 
BROTHER HR 15 
BROTHER HR 25 
BROTHER HR 35 
PANSONIC 1090 
PANSONIC 109 1 



S689 
S449 
$479 
$349 
$679 
$799 
$399 
$899 
SI 599 
$459 
$699 
$959 
$299 
$349 



VERSABUSINESS SERIES 

The Most Powerful Business Software Ever! 
Model I, III & IV 

VERSARECEIVABLES . . . S84.95 VERSAPAYROLL $84 95 

VERSAPAYABLES S84.95 VERSAlNVENTORY S84 95 

VERSALEDGER II $729.95 



I 
I 

I 

I 



THE HOME ACCOUNTANT 

The 1 1 best selling program for home and small business accounting is 
now available for TRS-80 Model 3. Handles up to 99 accounts, five 
checkbooks, multiple income accounts, and can split transactions to 
any number of accounts. Prints net worth statements. Income state- 
ments, as well as custom designed reports. Displays a bar chart and 
trend for any selected category, (by Continental Software, requires 
Model 3. 2 drives. 48K) $62.95. 



PRINTER BUFFERS 

FOR MOST COMPUTERS 

QUADRAM MICROFAZER 

Parallel to Parallel w/8K SI 49.00 

Parallel to Serial w/8K $179.00 

Serial to Serial w/8K ST 79.00 

Serial to Parallel w/8K 1 79. 00 

Each Add s 8K Upgrade S W 00 

All come with pause control and copy feature. 

and can be upgrades to 5I2K 



SPRINTER 
Double Your Speed 

Speed-up cuts computer operation time in 
halt, saves time and money. Fast 4 MHz Z80B 
CPU included, installs in 15 minutes with no 
soldering or cutting. 

SPRINTER III for MOD III «709.95 

SPRINTER I for MOD I '709.95 




BULK 
DISKETTES 



SSSD 

IN 

QUANTITIFS 

OF 200 

OR MORE 

SSDD 



99 







ea. 

$ 1.29 



MODEL IV — 64K 

MEMORY EXPANSION 

Guaranteed 1 full year 

Set of 8 

4 764 RAM CHIPS »39 95 

w/PAL CHIP to go from 

64 to 128K »64.95 



76 K RAM SPECIAL 

MEMORY UPGRADE 

4116. 200ns Guaranteed one full year 
$17.95 

NOW ONLY $11.95 
with the purchase of $25 or 
more! (while supply lasts) 



I 
I 

I 



Price*. Specifications. Offerings, 
sub/eel to Chang* without notice. 



I mm m ^_^ _ 1 








■m ■ 22295 Euclid Ave. 


WERE GIVING 
MAIL ORDER 
A GOOD NAME! \ 


?7vV»wmm^ Euclid, Ohio 44117 

DATA SUPPLIES 

A SUBSIDIARY OF THE COMPUTER WAREHOUSE. INC. OF OHIO 



Listing 1 continued from p. 57 






















13690 


DJHZ 


LP1D 


14650 


LD 


(HL) ,A 


12750 


DEFM 


'FFFFFFFFFFFFFFFF' 


13700 


LD 


(LPMOD) ,HL 


14660 LP7 


IKC 


HL 


12760 


DEFM 




13710 


RET 




14670 


LD 


A, (XXX) 


12770 


DEFM 


' :: :GFFFFFFFFFFFF' 


13720 LP2 


LD 


A, 2 


14680 


CP 


127 


12780 


DEFM 


'FFFFFFFFFFFFFFFF' 


13730 


LD 


(LPA) ,A 


14690 


JP 


Z,LP8 


12790 


DEFM 


'FFFFFFFFFFFFFFFF' 


13740 


LD 


A, 4 


14700 


INC 


A 


12800 


DEFM 


'FFFFF?: :::::::::' 


13750 


LD 


(LPB) ,A 


14710 


LD 


(XXX) ,A 


12810 


DEFM 




13760 


CALL 


LP1C 


14720 


JP 


LP6 


12820 


DEFM 




13770 LP2A 


LD 


A,l 


14730 LP8 


XOR 


A 


12830 


DEFM 




13780 


LD 


(TEMA) ,A 


14740 


LD 


(XXX) ,A 


12840 


DEFM 




13790 


JP 


LP5 


14750 


LD 


A, (LPRORE) 


12850 


DEFM 




13800 LP3 


LD 


A,3 


14760 


CP 


'R' 


12660 


DEFM 




13810 


LD 


(LPA) ,A 


14770 


JP 


Z,LPR8 


12870 


DEFM 




13820 


LD 


A, 6 


14780 


LD 


A, (LPBIT) 


12880 


DEFM 




13830 


LD 


(LPB) ,A 


14790 


SRL 


A 


12890 


DEFM 




13840 


CALL 


LP1C 


14800 


LD 


(LPBIT) ,A 


12900 


DEFM 




13850 


JP 


LP2A 


14810 


OR 


A 


12910 


DEFM 




13 860 LP4 


LD 


A,l 


14820 


JP 


LP8A 


12920 


DEFM 




13870 


LD 


(TEMA) ,A 


14830 LPR8 


LD 


A, (LPBIT) 


12930 AUTH 


DEFM 


' Press <ENTER> To 


13880 LP4A 


LD 


A, (14400) 


14840 


SLA 


A 


start program 


* 




13890 


CP 


4 


14850 


LD 


(LPBIT) ,A 


12940 LPRINT 


CALL 


SAVE 


13900 


JP 


Z, BREAK 


14860 


CP 


128 


12950 


LD 


A, (LPRORE) 


13910 


LD 


A,(3810H) 


14870 LP8A 


CALL 


Z,LPLP 


12960 


CP 


'R' 


13920 


OR 


A 


14880 


LD 


HL,LPBUF 


12970 


JP 


Z,LP0 


13930 


JP 


Z.LP4A 


14890 


LD 


A, (LPD) 


12980 


CP 


'E' 


13940 


AND 


30 


14900 


DEC 


A 


12990 


JP 


2 , LP0 


13950 


JP 


Z,LP4A 


14910 


LD 


(LPD) ,A 


13000 


CALL 


CLS 


13960 


CALL 


LP4C 


14920 


JP 


NZ,LP6 


13010 


LD 


HL,ALPR 


13970 


CALL 


LP4G 


14930 


LD 


A, (LPB) 


13020 


LD 


DE, 15880 


13980 


LD 


(LPA) ,A 


14940 


LD 


(LPD) ,A 


13030 


LD 


BC, (ALPRl) 


13990 LP4B 


LD 


A, (14400) 


14950 


LD 


A, (YYY) 


13040 


LDIR 




14000 


CP 


4 


14960 


CP 


47 


13050 LP0A 


CALL 


2BH 


14010 


JP 


Z, BREAK 


14970 


JP 


Z, LPEND 


13060 


OR 


A 


14020 


LD 


A,(3810H) 


14980 


INC 


A 


13070 


JP 


Z,LP0A 


14030 


OR 


A 


14990 


LD 


(YYY) ,A 


13080 


CP 


'R' 


14040 


JP 


Z.LP4B 


15000 


JP 


LP6 


13090 


JP 


Z,LP0B 


14050 


AND 


254 


15010 LPEND 


LD 


A, (TEMAl) 


13100 


CP 


'E' 


14060 


JP 


Z,LP4B 


15020 


DEC 


A 


13110 


JP 


Z,LP0B 


14070 


CALL 


LP4C 


15030 


CALL 


NZ,LPLP 


13120 


LD 


A, (14400) 


14080 


CALL 


LP4G 


15040 


LD 


B,3 


13130 


CP 


4 


14090 


LD 


(LPB) ,A 


15050 LPEND1 


LD 


A, 13 


13140 


JP 


Z .BREAK 


14100 


CALL 


LP1C 


15060 


CALL 


LPCHAR 


13150 


JP 


LPOA 


14110 


JP 


LPS 


15070 


DJNZ 


LPENDl 


13160 I.POB 


LD 


(LPRORE) ,A 


14120 LP4C 


PUSH 


AF 


15080 


LD 


A, (LPRORE) 


13170 


CALL 


LOAD 


14130 LP4D 


LD 


A,(3810H) 


15090 


CP 


•E' 


13180 LP0 


CALL 


0O2BI1 


14140 


OR 


A 


15100 


JP 


Z.LPEND2 


13190 


OR 


A 


14150 


JP 


NZ,LP4D 


15110 


LD 


A, 30 


13200 


JP 


Z,LP0 


14160 


JP 


POPART 


15120 


CALL 


LPCHAR 


13210 


CP 


'S' 


14170 LP4G 


LD 


B,-l 


15130 LPEND3 


JP 


CLRRET 


13220 


JP 


Z,LP1 


14180 LP4H 


INC 


B 


15140 LPEND2 


LD 


A, 27 


13230 


CP 


'M' 


14190 


SRL 


A 


15150 


CALL 


LPCHAR 


13240 


JP 


Z,LP2 


14200 


JP 


NC,LP41i 


15160 


LD 


a,'$' 


13250 


CP 


•L' 


14210 


LD 


A,B 


15170 


CALL 


LPCHAR 


13260 


JP 


Z,LP3 


14220 


RET 




15180 


JP 


LPEND3 


13270 


CP 


'D' 


14230 LP5 


LD 


A, (LPA) 


15190 LPBI 


LD 


A, (LPRORE) 


13280 


JP 


Z,LP4 


14240 


LD 


(LPC) ,A 


15200 


CP 


'R' 


13290 


CP 


'E' 


14250 


LD 


A, (LPB) 


15210 


JP 


Z,LPBR 


13300 


JP 


Z,LP0B 


14260 


LD 


(LPD) ,A 


1522a 


LD 


A, 128 


13310 


c? 


'R' 


14270 


CALL 


CLPBF 


15230 


LD 


(LPBIT) ,A 


13320 


JP 


Z,LP0B 


14280 


XOR 


A 


15240 


RET 




13330 


LD 


A, (14400) 


14290 


LD 


(XXX) ,A 


15250 LPBR 


LD 


A,l 


13340 


CP 


4 


14300 


LD 


(YYY) r A 


15260 


LD 


(LPBIT) ,A 


13350 


JP 


7,, BREAK 


14310 


LD 


A, (LPRORE) 


15270 


RET 




13360 


JP 


LP0 


14320 


CP 


'R' 


15280 LPLP 


CALL 


LPBI 


13370 r.Pl 


LD 


A,l 


14330 


JP 


Z,LPR5 


15290 


LD 


A, (TEMA) 


13380 


LD 


(LPA) ,A 


14340 


LD 


A, 128 


15300 


LD 


B,A 


133 90 


I.D 


A, 2 


14350 


LD 


(LPBIT) ,A 


15310 LP9 


PUSH 


BC 


13400 


LD 


(LPB) ,A 


14360 


LD 


A, 27 


15320 


LD 


HL,LPBUF 


13410 LP1A 


CALL 


2BH 


14370 


CALL 


LPCHAR 


15330 


LD 


B.128 


13420 


OR 


A 


14380 


LD 


A,'§' 


15340 


LD 


A, (LPRORE) 


13430 


JP 


Z,LP1A 


14390 


CALL 


LPCHAR 


15350 


CP 


'R' 


13440 


CP 


*1' 


14400 


LD 


A, 27 


15360 


JP 


Z,LP10 


13450 


JP 


Z,LP1B 


14410 


CALL 


LPCHAR 


15370 


LD 


A, 27 


13460 


CP 


'2' 


14420 


LD 


A, 'A' 


15380 


CALL 


LPCHAR 


13470 


JP 


Z,LP1B 


14430 


CALL 


LPCHAR 


15390 


LD 


A, 75 


13480 


CP 


'3' 


14440 


LD 


A, 8 


15400 


CALL 


LPCHAR 


13490 


J? 


Z,LP1B 


14450 


CALL 


LPCHAR 


15410 


LD 


A, (LPMOD) 


13500 


!.D 


A, (14400) 


14460 


JP 


LP6 


15420 


CALL 


LPCHAR 


13510 


CP 


4 


14470 LPR5 


LD 


A, 18 


15430 


LD 


A, (LPDIV) 


13520 


JP 


Z, BREAK 


14480 


CALL 


LPCHAR 


15440 


CALL 


LPCHAR 


13530 


JP 


LP1A 


14490 


LD 


A,l 


15450 LP10 


LD 


A, (14400) 


13540 LP1B 


SUB 


30H 


14500 


LD 


(LPBIT) ,A 


15460 


CP 


4 


13550 


LD 


(TEMA) ,A 


14510 


JP 


LP6 


15470 


JP 


Z,LPBRK 


13560 


LD 


A, (LPA) 


14520 LP6 


LD 


A, (14400) 


15480 


LD 


A,(HL) 


13570 


LD 


B,A 


14530 


CP 


4 


15490 


CALL 


LPCHAR 


13580 


LD 


HL,0 


14540 


JP 


Z,LPQUIT 


15500 


LD 


A, (LPC) 


13590 


LD 


DE,158 


14550 


LD 


A, (YYY) 


15510 


DEC 


A 


13600 


CALL 


LP1D 


14560 


LD 


D,A 


15520 


LD 


(LPC) ,A 


13610 


JP 


LP5 


14570 


LD 


A, (XXX) 


15530 


JP 


NZ F LP10 


13620 LP1C 


LD 


A, (LPA J 


14580 


LD 


E,A 


15540 


INC 


HL 


13630 


LD 


B,A 


14590 


PUSH 


HL 


15550 


LD 


A, (LPA) 


13640 


LD 


HL,30 


14600 


CALL 


TEST 


15560 


LD 


(LPC) ,A 


13650 


LD 


DE,128 


14610 


POP 


HL 


15570 


DJNZ 


LP10 


13660 


CALL 


LP1D 


14620 


JP 


Z,LP7 


15580 


LD 


A, (LPRORE) 


13670 


RET 




14630 


LD 


A, (LPBIT) 


15590 


CP 


'R' 


13680 LP1D 


ADD 


HL,DE 


14640 


OR 


(HL) 






Listing 1 continued 



80 • 80 Micro, March 1985 



Listing 1 continued 
























17 3 80 


OR 


C 


18340 


LD 


(WORD1) ,HL 


15600 


JF 


Z, LPTAB 


17390 


JP 


Z,CNTT 


18350 


JP 


NEWPAR 


15610 


u> 


B,30 


17 400 


JP 


CNTY 


18360 PARAM3 


CALL 


LOAD 


15620 LPTAB1 


XOR 


A 


17 410 CNTT 


LD 


HL,3C00H 


18370 


LD 


HL,(WORDl) 


15630 


CALL 


LPCHAR 


17420 


LD 


BC,1024 


183 80 


LD 


DE,NEWBUF 


15640 


DJNZ 


LPTAB1 


17430 NEXTT 


LD 


A, (HL) 


183 90 


OR 


A 


15650 


JP 


LP10A 


17440 


CP 


20H 


18400 


SBC 


HL,DE 


15660 LPTAB 


LD 


B,30 


17450 


JP 


NZ, WAITT 


18410 


RET 


Z 


15670 LPTAB2 


LD 


A, 128 


17460 


INC 


HL 


18420 


PUSH 


HL 


15680 


CALL 


LPCHAR 


17470 


DEC 


BC 


18430 


POP 


BC 


15690 


DJNZ 


LPTAB 2 


17480 


LD 


A,B 


18440 FIXCOU 


DEC 


HL 


15700 LP10A 


POP 


BC 


17490 


OR 


C 


18450 


DEC 


BC 


15710 


DJNZ 


LP 9 


17500 


JP 


Z,402DH 


18460 


DEC 


BC 


15720 


CALL 


CLPBF 


17510 


JP 


NEXTT 


18470 


l.D 


A,B 


15730 


LD 


A, 13 


17520 WAITT 


LD 


B,0 


184 80 


OR 


C 


15740 


CALL 


LPCHAR 


17 53 LOOPT 


DJNZ 


LOOPT 


184 90 


JP 


NZ, FIXCOU 


15750 


LD 


A, (YYY) 


17540 


JP 


ADVANl 


18500 


LD 


(NEWCOU) ,HL 


15760 


CP 


47 


17 550 BREAK 


LD 


A, (14400) 


18510 PARAM1 


LD 


IX,BUFLAS 


15770 


JP 


Z,LP11 


17560 


BIT 


2, A 


18520 PARAM2 


LD 


HL,N£WBUF 


15780 


XOR 


A 


17570 


JP 


NZ, BREAK 


18530 


LD 


DE, (NEWCOU) 


15790 


LD 


(TEMA1) ,A 


17 580 


CALL 


LOAD 


18540 CON PAR 


LD 


A,(HL) 


15800 


RET 




17 590 


LD 


A, 3 


18550 


CP 


0FFH 


15810 LP11 


LD 


A,l 


17600 


LD 


(BB) ,A 


18560 


JP 


NZ, NEXPAR 


15820 


LD 


(TEMA1) ,A 


17610 


JP 


CLRRET 


18570 


INC 


HL 


15830 


RET 




17620 NEWKEY 


LD 


A, 2 


18580 


INC 


HL 


15 840 LPCHAR 


PUSH 


AF 


17630 


LD 


(BB) ,A 


185 90 


DEC 


DE 


15850 LPC1 


LD 


A, (14400) 


17640 


LD 


A, (XX) 


18600 


LD 


A,D 


15860 


CP 


4 


17650 


LD 


(XXX) ,A 


18610 


OR 


E 


15870 


JP 


Z, POPART 


17660 


LD 


A, (YY) 


18620 


JP 


NZ,CONPAR 


15880 


IN 


A, (0F8H) 


17670 


LD 


(YYY) ,A 


18630 


JP 


ENDPAR 


15890 


AND 


0F0H 


176 80 NEWAAA 


CALL 


002BH 


186 40 NEXPAR 


CALL 


SMALLY 


15900 


CP 


30H 


176 90 


OR 


A 


18650 


CALL 


SMALLX 


15910 


JP 


NZ,LPCl 


17700 


JP 


Z, NEW AAA 


18660 


CALL 


LARGEX 


15920 


POP 


AF 


17710 


CALL 


SAVE 


18670 


LD 


L,0 


15930 


OUT 


(0F8H) ,A 


17720 


CP 


■w 1 


186 80 


LD 


A, (PARSX) 


15940 


RET 




17730 


JP 


Z,NEWWHI 


186 90 


LD 


(IX) ,A 


15950 LPBRK 


POP 


HL 


17740 


CP 


'B' 


18700 


INC 


IX 


15960 


POP 


HL 


17750 


JP 


Z,NEWCLS 


18710 MOKPAR 


LD 


A, (PARY) 


15 970 LPQUIT 


LD 


A, 13 


17760 


CP 


'N' 


187 20 


LD 


D,A 


15980 


CALL 


LPCHAR 


17770 


JP 


Z,N£WflEG 


187 30 


LD 


A, (PARSX) 


15990 


LD 


A, 30 


177 80 


CP 


• pi 


18740 


LD 


E,A 


16000 


CALL 


LPCHAR 


17790 


JP 


Z,NEWQVR 


18750 


PUSH 


HL 


16010 


JP 


BREAK 


17 800 


CP 


31H 


18760 


CALL 


TEST 


16020 CLPBF 


LD 


HL, LPBUF 


17810 


JP 


Z,NEWXXX 


18770 


POP 


HL 


16030 


LD 


DE,LPBUF+1 


17820 


CP 


32H 


187 80 


JP 


Z, PARRES 


16040 


LD 


BC,127 


17830 


JP 


Z , NEWXXK 


187 90 


SCF 




16050 


LD 


A, (LPRORE) 


17840 


CP 


33H 


18800 PARPUS 


RR 


H 


16060 


CP 


'R' 


17850 


JP 


Z,NEWXX* 


18810 


JP 


PARA 


16070 


JP 


Z,CLPBfl 


17 860 


CP 


34H 


18820 PARRES 


OP 


A 


16080 


XOR 


A 


17 870 


OP 


Z,NEWXXX 


18830 


JP 


PARPUS 


16090 


JP 


CLPBF2 


17 880 


CP 


35H 


18840 PARA 


LD 


A, (PARSX) 


16100 CLPBF1 


LD 


A, 128 


17 890 


JP 


Z,NEWXXX 


18850 


INC 


A 


16110 CLPBF2 


LD 


(HL) ,A 


17 900 


LD 


A, (14400) 


18860 


l.D 


(PARSX) ,A 


16120 


LD1R 




17910 


CP 


4 


18870 


LD 


D,A 


16130 


LD 


HL, LPBUF 


17920 


JP 


Z, BREAK 


18880 


LD 


A, (PARLX) 


16140 


RET 




17930 


J? 


NEWAAA 


18890 


IMC 


A 


16150 ALPR 


DEFM 


'type (R) 


17 940 NEWXXX 


LD 


(TEMA1) ,h 


18900 


CP 


D 


for Radio Shack or 


(E) tor epson ' 


17950 


JP 


PARAM 


18910 


JP 


Z, PARNX 


16160 ALPRl 


DEFW 


5-ALPR 


17 960 ENDPAR 


LD 


A,0FFH 


18920 


INC 


L 


16170 CHANGE 


LD 


(HL) ,80H 


17970 


LD 


(IX) ,A 


18930 


LD 


A,L 


16180 


RET 




17 980 


INC 


IX 


18940 


CP 


6 


17030 POPART 


POP 


AF 


17990 


LD 


(IX) ,A 


18950 


JP 


NZ,MORPAR 


17040 


RET 




18000 


LD 


A, (TEMA1) 


18960 


OR 


A 


17050 POPHRT 


POP 


11 L 


18010 


CP 


31H 


1897 


RR 


H 


17060 


RET 




18020 


JP 


Z,SPEC1 


18980 


SCF 




17070 CLRRET 


XOR 


A 


18030 


CP 


32H 


18990 


RR 


H 


17080 


RET 




18040 


JP 


Z,SPEC2 


19000 


LD 


A,H 


17090 POP11DB 


POP 


HL 


18050 


CP 


33H 


19010 


LD 


(IX) ,A 

IX 


17100 


POP 


DE 


1806 


JP 


Z,SPEC3 


19020 


INC 


17110 


POP 


BC 


18070 


CP 


34H 


19030 


LD 


L,0 


17120 
17130 x.xx 
17140 YYY 


RET 




180 80 


JP 


Z,SPEC4 


19040 


JP 


MORPAR 


DEFB 


00 


18090 


JP 


SPEC5 


19050 PARNX 


INC 


L 


DEFB 


00 


18100 PARAM 


CALL 


SAVE 


19060 


LD 


A, L 


17150 LPRORE 


DEFB 





18110 


CALL 


KEEP 


19070 


CP 


7 


17160 I.PA 
17170 I.PB 


DEFB 
DEFB 






18120 

18130 


XOR 
LD 


A 

HL,NEWBUF 


190 80 
190 90 


JP 

OR 


Z , PARMOX 
A 


17180 LPC 


DEFB 





18140 


LD 


(WORD1) ,HL 


19100 


RR 


H 


17190 LPD 


DEFB 





18150 NEWPAR 


CALL 


PFLASH 


19110 


JP 


PARNX 


17200 LPMOD 


DEFB 





18160 


LD 


BC,1400 


19120 PARMOX 


SCF 




17210 LPDIV 


DEFB 





1817 NEULOO 


CALL 


WASTE 


19130 


RR 


H 


17220 LPBUF 


DEFS 


128 


18180 


CALL 


PFLASH 


19140 


LD 


A,H 


17230 I.PBIT 
17 24S ADVAN 


DEFB 

CALL 



SAVE 


18190 
18200 


LD 
AND 


A, (14400) 
125 


19150 
19160 


LD 
IMC 


(IX) r ft 

IX 


17250 

17260 ADVANl 


CALL 
LD 


BREAK 
HL,3C00H 


18210 
18220 


JP 

CP 


Z, NEWPAR 
4 


19170 
19180 


LD 
LD 


A, (PARLX) 
(IX) ,A 

IX 


17270 


LD 


BC,1024 


18230 


JP 


Z , PAREND 


19190 


INC 


17280 CNTY 

17290 

17300 

17310 

17320 

17330 

17340 


LD 

CP 


A, (14400) 

4 


18240 
18250 


CALL 
CP 


ROUTNS 
1 


19200 
19210 


CALL 
JP 


PARFIL 
PARAM 2 


JP 


Z, BREAK 


18260 


JP 


Z , PARAM3 


19220 PARFIL 


LD 


HL.NEWBUF 


LD 
CP 


A, (HL) 
20H 


1827 
18280 


LD 
LD 


HL, (WORD1) 
A, (YY) 


19230 
192 40 


LD 
LD 


DE, (NEWCOU) 
A, (PARY) 
B,A 


JP 


Z,NXTT 


18290 


LD 


(HL) ,A 


19250 


LD 


INC 


(HL) 


18300 


INC 


HL 


19260 MORFIL 


LD 


A,(HL) 


17 350 NXTT 


INC 


HL 


18310 


LD 


A, (XX) 


19270 


CP 


B , 


17360 


DEC 


BC 


18320 


LD 


(HL) ,A 


192 80 


JP 


Z,KILPAR 


17370 


LD 


A,B 


18330 


INC 


HL 






tiling 1 continued 



80 Micro, March 1985 • 81 



Listing I continued 











20200 PARSX2 


INC 


HL 


21120 




JP 


Z, PSPOPR 


19290 NEXFIL 


INC 


HL 


20210 


INC 


HL 


21130 




DEC 


A 


19300 




INC 


HL 


20220 PARSX4 


DEC 


BC 


21140 




JP 


Z, PSNGB 


19310 




DEC 


DE 


20230 


LD 


A,B 


21150 




DEC 


A 


19320 




LD 


A,D 


20240 


OR 


C 


21160 




JP 


Z , PSOVW 


19330 




OR 


E 


20250 


JP 


NZ,PARSX0 


21170 




DEC 


A 


19340 




RET 


Z 


20260 


LD 


A,E 


21180 




JP 


Z , PSOVB 


19350 




JP 


MORFIL 


20270 


LD 


(PARSX) ,A 


21190 




JP 


PSNGW 


19360 KILPAR 


LD 


A,0FFH 


20280 


JP 


POPHDB 


21200 PSPOPS 


POP 


AF 


19370 




LD 


(HL) ,A 


20290 PARSX1 


INC 


HL 


21210 




JP 


PSSET 


19380 




JP 


NEXFIL 


20300 


LD 


A, (HL) 


21220 PSPOPR 


POP 


AF 


193 90 PAR END 


CALL 


LOAD 


20310 


CP 


E 


21230 




JP 


PS RES 


19400 




JP 


BREAK 


20320 


JP 


C, PARSX 3 


21240 PSOVB 


POP 


AF 


19410 PFLASH 


LD 


DE,NEWBUF 


20330 PARSX5 


INC 


HL 


21250 




JP 


CPSRES 


19420 




LD 


HL, (WORD1) 


20340 


JP 


PARSX4 


21260 




PUSH 


AF 


19430 




OR 


A 


20350 PARSX3 


LD 


E,A 


21270 




PUSH 


BC 


19440 




SBC 


HL,DE 


20360 


JP 


PARSX5 


21280 




PUSH 


HL 


19450 




LD 


A,H 


20370 LARGEX 


PUSH 


BC 


21290 




JP 


PSNEXT 


19460 




OR 


L 


20380 


PUSH 


DE 


21300 PSOVW 


POP 


AF 


19470 




RET 


Z 


20390 


PUSH 


HL 


21310 




JP 


C, PSSET 


194 80 




PUSH 


HL 


20400 


LD 


A, (PARY) 


21320 




PUSH 


AF 


194 90 




POP 


BC 


20410 


LD 


D,A 


21330 




PUSH 


BC 


19500 




LD 


HL,NEWBUF 


20420 


LD 


E,0 


21340 




PUSH 


HL 


19510 PFMORE 


LD 


A, (HL) 


20430 


LD 


HL,NEWBUF 


21350 




JP 


PSNEXT 


19520 




LD 


D,A 


20440 


LD 


BC, (NEWCOU) 


21360 PSNGB 


POP 


AF 


19530 




INC 


HL 


20450 PARLX0 


LD 


A, (HL) 


21370 




JP 


NC.PSRES 


19540 




LD 


A,(HL) 


20460 


CP 


D 


21380 




PUSH 


AF 


19550 




LD 


E,A 


20470 


JP 


Z,PARLX1 


21390 




PUSH 


BC 


19560 




PUSH 


BC 


204 80 PARLX2 


INC 


HL 


21400 




PUSH 


HL 


19570 




PUSH 


HL 


20490 


INC 


HL 


21410 




JP 


PSNEXT 


195 80 




CALL 


TEST 


20500 PARLX4 


DEC 


BC 


21420 


PSNGW 


POP 


AF 


19590 




POP 


HL 


20510 


LD 


A,B 


21430 




JP 


NC, PSSET 


19600 




PUSH 


HL 


20520 


OR 


C 


21440 




PUSH 


AF 


19610 




JP 


Z, PFOFF 


20530 


JP 


!JZ,PARLX0 


21450 




PUSH 


BC 


19620 


PFONN 


DEC 


HL 


20540 


LD 


A,E 


21460 




PUSH 


HL 


19630 




LD 


A, (HL) 


20550 


LD 


(PARLX) ,A 


21470 




JP 


PSNEXT 


19640 




LD 


D,A 


20560 


JP 


POPHDB 


21480 


PS RES 


PUSH 


AF 


19650 




INC 


HL 


20570 PARLX1 


INC 


HL 


214 90 




PUSH 


BC 


19660 




LD 


A, (HL) 


20580 


LD 


A, (HL) 


21500 




PUSH 


HL 


19670 




LD 


E,A 


20590 


CP 


E 


21510 




LD 


A,(YY) 


196 80 




CALL 


RESET 


20600 


JP 


NC,PARLX3 


21520 




LD 


D,A 


196 90 




JP 


PFCONT 


20610 PARLX5 


INC 


HL 


21530 




LD 


A, (XX) 


19700 


PFOFF 


DEC 


HL 


20620 


JP 


PARLX4 


21540 




LD 


E,A 


19710 




LD 


A, (HL) 


20630 PAP.LX3 


LD 


E,A 


21550 




CALL 


RESET 


19720 




LD 


D,A 


20640 


JP 


PARLX5 


21560 




JP 


PSNEXT 


19730 




INC 


HL 


20650 PSPEC0 


LD 


A, (14400) 


21570 


PSSET 


PUSH 


AF 


19740 




LD 


A, (HL) 


20660 


CP 


4 


21580 




PUSH 


BC 


19750 




LD 


E,A 


20670 


JP 


2, BREAK 


21590 




PUSH 


HL 


19760 




CALL 


SET 


20680 


LD 


A,(3810H) 


21600 




LD 


A,(YY) 


19770 


PFCONT 


POP 


HL 


20690 


AND 


62 


21610 




LD 


D,A 


197 80 




POP 


BC 


20700 


JP 


Z,PSPEC0 


21620 




LD 


A, (XX) 


197 90 




INC 


HL 


20710 


PUSH 


AF 


21630 




LD 


E,A 


19800 




DEC 


BC 


20720 PS1 


LD 


A,(3810!i) 


21640 




CALL 


SET 


19810 




LD 


A,B 


20730 


OP 


A 


21650 


PSNEXT 


LD 


A, (XX) 


19820 




OR 


C 


20740 


JP 


MZ,PS1 


21660 




INC 


A 


19830 




RET 


Z 


20750 


POP 


AF 


21670 




CP 


128 


19840 




DEC 


BC 


20760 


CP 


2 


21680 




CALL 


Z, PSLFIX 


19850 




LD 


A,B 


20770 


JP 


Z,PSPEC1 


21690 


PSOK 


LD 


(XX) ,A 


19860 




OR 


C 


207 80 


CP 


4 


21700 




POP 


HL 


19870 




RET 


z 


20790 


JP 


Z,PSPEC2 


21710 




POP 


BC 


19880 




JP 


PFMORE 


20800 


CP 


8 


21720 




POP 


AF 


19890 


SMALLY 


PUSH 


BC 


20810 


JP 


Z,PSPEC3 


21730 




DJNZ 


PSDJNZ 


19900 




PUSH 


DE 


20820 


CP 


16 


21740 




INC 


HL 


19910 




PUSH 


HL 


20830 


JP 


Z,PSPEC4 


21750 




JP 


PSLOOP 


19920 




LD 


D,0FFH 


20840 


CP 


32 


21760 


PSNEX 


INC 


HL 


19930 




LD 


HL,MEWBUF 


20850 


JP 


Z,PSPEC5 


21770 




LD 


A, (HL) 


19940 




LD 


BC,(NEWCOU) 


20860 


JP 


PSPEC0 


21780 




CP 


0FFH 


19950 


PARY0 


LD 


A,(HL) 


20870 PSPEC1 


LD 


HL,KEY1 


21790 




JP 


Z,PSFINI 


19960 




CP 


D 


20880 


JP 


PSPEC 


21800 




LD 


C,0 


19970 




JP 


CPARY1 


20 890 PSPEC2 


LD 


HL,KEY2 


21810 




LD 


A, (TEMA) 


19980 


PARY2 


INC 


HL 


20900 


JP 


PSPEC 


21820 




LD 


B,A 


19990 




INC 


HL 


20910 PSPEC3 


LD 


HL,KEY3 


21830 




LD 


A, (TEMA1) 


20000 




DEC 


BC 


20920 


JP 


PSPEC 


21840 




LD 


D,A 


20010 




LD 


A,B 


20930 PSPEC4 


LD 


HL,KEY4 


21850 




LD 


A, (HL) 


20020 




OR 


C 


20940 


JP 


PSPEC 


21860 




CP 


B 


20030 




JP 


NZ,PARY0 


20950 PSPEC5 


LD 


HL,KEY5 


21870 




JP 


Z,PSOK2 


20040 




LD 


A,D 


20960 


JP 


PSPEC 


21880 




JP 


NCPSGREA 


20050 




LD 


(PARY) ,A 


20970 PSPEC 


LD 


A, (HL) 


21890 


PSLESS 


INC 


A 


20060 




JP 


POPHDB 


20980 


LD 


(TEMA) ,A 


21900 




INC 


C 


20070 


PARY1 


LD 


D,A 


20990 


LD 


A, (XX) 


21910 




CP 


128 


20080 




JP 


PARY 2 


21000 


LD 


(TEHA1) ,A 


21920 




CALL 


Z, PSLFIX 


20090 


SMALLX 


PUSH 


BC 


21010 


INC 


HL 


21930 


PSLES1 


CP 


B 


20100 




PUSH 


DE 


21020 PSLOOP 


LD 


A, (HL) 


21940 




JP 


NZ, PSLESS 


20110 




PUSH 


HL 


21030 


CP 


128 


21950 




LD 


B,C 


20120 




LD 


A, (PARY) 


21040 


JP 


C,PSNEX 


21960 




LD 


A,D 


20130 




LD 


D,A 


21050 


LD 


B,6 


21970 




JP 


PSMIN 


20140 




LD 


E,0FFH 


21060 PSDJNZ 


RR 


A 


21980 


PSLFIX 


JP 


CLRRET 


20150 




LD 


HL,NEWBUF 


21070 


PUSH 


AF 


21990 




RET 




20160 




LD 


BC, (MEWCOU) 


21080 


LD 


A, (BB) 


22000 


PSADD 


INC 


A 


20170 


PARSX0 


LD 


A,(HL) 


21090 


DEC 


A 


22010 




CP 


128 


20180 




CP 


D 


21100 


JP 


Z,PSPOPS 


22020 




CALL 


Z, PSLFIX 


20190 




JP 


Z,PARSX1 


21110 


DEC 


A 











Listing / continued 



82 • 80 Micro, March 1985 



Listing 1 continued 






22030 




DJNZ 


PSADD 


22040 


PS0K1 


LD 


(XX) ,A 


22050 




LD 


A,(YY) 


22060 




INC 


A 


22070 




CP 


48 


22080 




CALL 


Z,PSLFIX 


22090 




LD 


(YY) ,A 


22100 




JP 


PSPEC 


22110 


PS0K2 


LD 


A f 


22120 




JP 


PSOK1 


22130 


PSGREA 


DEC 


A 


22140 




INC 


C 


22150 




CP 


255 


22160 




CALL 


Z, PSGFIX 


22170 


PSGRE1 


CP 


B 


22180 




JP 


NZ, PSGREA 


22190 




LD 


B,C 


22200 




LD 


A,D 


22210 




JP 


PSADD 


22220 


PSGFIX 


LD 


A, 127 


22230 




RET 




22240 


PSMIN 


DEC 


A 


22250 




CP 


255 


22260 




CALL 


Z, PSGFIX 


22270 




DJNZ 


PSMIN 


22280 




JP 


PSOK1 


22290 


PSFINI 


LD 


A, 3 


22300 




LD 


(BB) ,A 


22310 




LD 


A, (XXX) 


22320 




LD 


(XX) ,A 


22330 




LD 


A,(YYY) 


22340 




LD 


(YY),A 


22350 




RET 




22360 


TEMA 


DEFB 





22370 


TEMA1 


DEFB 





22380 


KEY1 


DEFS 


1153 


22390 


KEY2 


DEFS 


1153 


22400 


KEY3 


DEFS 


1153 


22410 


KEY4 


DEFS 


1153 


22420 


KEY5 


DEFS 


1153 


22430 


BUFLAS 


DEFS 


1153 


22440 


NEWBUF 


DEFS 


1800H 


22450 


NEWCOU 


DEFW 


0000 


22460 


PARY 


DEFB 





22470 


PARSX 


DEFB 





22480 


PARLX 


DEFB 





22490 


SPEC1 


LD 


DE,KEY1 


22500 




JP 


SPEC 


22510 


SPEC2 


LD 


DE,KEY2 


22520 




JP 


SPEC 


22530 


SPEC3 


LD 


DE,KEY3 


22540 




JP 


SPEC 


22550 


SPEC4 


LD 


DE,KEY4 


22560 




JP 


SPEC 


22570 


SPEC5 


LD 


DE,KEY5 


22580 




JP 


SPEC 


22590 


SPEC 


LD 


HL, BUFLAS 


22600 




LD 


BC,1153 


22610 




LDIR 




22620 




RET 




22630 


NEWWHI 


LD 


A,l 


22640 


NEWFUN 


LD 


(BB) ,A 


22650 




JP 


PSPEC0 


22660 


NEWCLS 


LD 


A, 2 


22670 




JP 


NEWFUN 


22680 


NEWNEG 


CALL 


002BH 


226 90 




CP 


'B' 


22700 




JP 


Z,NWNEG1 


22710 




CP 


i w i 


22720 




JP 


Z,NWNEG2 


22730 




LD 


A, (14400) 


22740 




CP 


4 


22750 




JP 


Z , BREAK 


22760 




JP 


NEWNEG 


22770 


NWNEG1 


LD 


A, 5 


227 80 




JP 


NEWFUN 


227 90 


NWNEG2 


LD 


A, 6 


22800 




JP 


NEWFUN 


22810 


NEWOVR 


CALL 


002BH 


22820 




CP 


•B' 


22830 




JP 


Z,NWOVRl 


22840 




CP 


i w i 


22850 




JP 


Z,NWOVR2 


22860 




LD 


A, (14400) 


22870 




CP 


4 


22880 




JP 


Z, BREAK 


22890 




JP 


NEWOVR 


22900 


NWOVR1 


LD 


A, 3 


22910 




JP 


NEWFUN 


22920 


NWOVR2 


LD 


A, 4 


22930 




JP 


NEWFUN 


22940 




END 


START 

End 



Program Listing 2. UTIL1/BAS. 

10 DEFUSR0=&HF000:CMD"B","OFF" 

20 CLEAR 255 

25 CLS 

30 PRINT §520,; 

40 INPUT "WHAT SHOULD THE DIAMETER OF THE CIRCLE BE";Z 

50 IF ZOINT(Z) OR Z>47 THEN PRINT "INTERGER BETWEEN 1 AND 47 PLEA 

SE":FOR X=l TO 1000 :NEXT:GOTO 25 

55 CLS:PRINT 3128, 

60 PRINT "Position cursor where you want circle to be and press (< 

d>raw) " 

70 PRINT "After Circle is drawn to your satisfaction type (<F>inis 

h) " 

80 PRINT "Press <Space Bar> to start program" 

90 PRINT "Press <Clear> to redefine circle size" 

100 PRINT "Press <L> to reload original picture" 

110 PRINT "Press <S> to save or <break> to quit and save" 

111 PRINT "Press <C> to clear screen" 

112 PRINT "Press <W> to White out screen" 

120 A=PEEK(14400) :IF A<>2 AND A<>128 THEN 120 ELSE GOSUB 470 

121 IF A=2 THEN 20 
130 X=0:Y=0 

140 A$=INKEY$ 

150 A=PEEK(14400) 

160 IF A=4 THEN GOSUB 4 90 :CMD"I" , "GRAPH TEMP/GRA" 

170 IF A=8 THEN Y=Y-1 

180 IF A$="L" THEN GOSUB 470 

190 IF A=16 THEN Y=Y+1 

200 IF A=2 THEN GOSUB 490 :GOTO 25 

210 IF A=32 THEN X=X-1 

220 IF A=64 THEN X=X+1 

230 IF A=40 THEN Y=Y-1:X=X-1 

240 IF A=80 THEN Y=Y+1:X=X+1 

250 IF A=72 THEN Y=Y-1:X=X+1 

260 IF A=48 THEN Y=Y+1:X=X-1 

270 IF A$="C" THEN FOR D=15360 TO 16383:POKE D,128:NEXT 

275 IF A$="W" THEN FOR D=15360 TO 16383:POKE D,191:NEXT 

280 IF A$="S" THEN GOSUB 490 

290 IF Y<0 THEN Y=47 

300 IF Y>47 THEN Y=0 

310 IF X<0 THEN X=127 

320 IF X>127 THEN X=0 

330 IF POINT (X,Y) THEN RESET 

340 IF POINT (X,Y) THEN RESET 

350 IF A$="D" THEN GOSUB 370 

360 GOTO 140 

370 B=l 

380 T=0 

3 90 A=T/3.1415 9 

400 SX=X+Z*SIN(A) 

410 SY=Y+(Z/2) *COS(A) 

420 T=T+1 

425 A$=INKEY$:IF A$="" THEN 430 

426 IF A$="F" THEN RETURN 

430 IF SX<0 OR SX>127 OR SY<0 OR SY>47 THEN 460 
440 SET (SX,SY) 
460 GOTO 3 90 
470 CMD"L","LOAD/UTL" 
480 A=USR(0) :RETURN 
490 CMD"L","SAVE/UTL" 
500 GOTO 4 80 



X,Y) ELSE SET(X,Y) 
X,Y) ELSE SET(X,Y) 



Program Listing 3. UTIL2/BAS. 

10 CMD"B","OFF":CLS 

15 PRINT "Press <P> for printer or <S> for screen" 

16 A$=INKEY$:IF A$<>"P" AND A$<>"S" THEN 16 

17 IF A$="S" THEN 20 

18 READ A$:IF A$="EOF" THEN RESTORE:GOTO 30 

19 LPRINT AS: GOTO 18 

20 FOR A=l TO 15:READ A$:IF A$="EOF" THEN A=15 : RESTORE: GOTO 26 

25 PRINT A$ 

26 NEXT 

30 PRINT "Press <ENTER> to continue or <BREAK> to end"; 

40 IF PEEK(14400)=1 THEN CLS:GOTO 20 

50 IF PEEK(14400)=4 THEN CMD"I" , "GRAPH TEMP 

60 GOTO 40 



"THIS IS 



T 



QUICK REFERENCE PROGR 



70 DATA 

AM." 

80 DATA " 

90 DATA " 

100 DATA 

110 DATA 

112 DATA "1 — INCREASE CURSOR SPEED. (MAY BE PRESSED MANY TIMES) 



LEARN HOW TO 
CONSULT THE 
"LISTING OF KEYS AND THEIR FUNCTIONS 



USE GRAPH' 
MANUAL" 



Listing 3 continued 



80 Micro, March 1985 • 83 



Circle 203 on Reader Service card 



IEEE-488 TO TRS-80* INTLAFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1. 3 or 4, Level 2 or DOS 
with a minimum of 16K. 




44I0OC 

For Mod*/ 3 Of 4 
Owation 488 BOB 

For Model 1 
Operation 



! JeL 



Model 448-80B or 4S&80C Price: $450 

♦ shipping, insurance A fa* 

WHEN ORDERING SPECIFY DISK OB TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage. NY 11804 
Telephone (516) 694-3370 

• Trademark of Tandy Corp 
There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp or 
Radio Shack 



Circle 249 on Reader Service card. 



HUNT & PECK 
4 




Is fine for chickens. 

You, however, can use FasType." 
FasType" is a versatile machine 
language program that teaches touch 
typing and keyboard functions. Writ- 
ten by teachers. Classroom proven. 
Specify TRS-80 Model III or 4. 

Send check for $39.95/disk plus 
$1 .50 shipping to: 

Press A Software 

Box 364 

Jerome. AZ 86331 

602-634-2688 



SfeffiF 



80 Micro does not keep subscription 
records on the premises, therefore 
calling us only adds time and doesn't 
solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

BOmicro 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enjoy your subscription 



Listing 3 continued 






114 DATA 


"2 — DECREASE CURSOR SPEED. (MAY BE PRESSED MANY TIMES)" 




120 DATA 


"B — TURNS THE PICTURE BACKWARDS. (MIRROR IMAGE)" 




130 DATA 


"C ~ CLEARS THE SCREEN. (BLACK)" 




140 DATA 


"DC — SHOWS A CATALOG OF DISK FILES AND DISPLAYS THEM." 




150 DATA 


"DL + NAME -- LOAD A PICTURE FROM DISK BY THE NAME 'NAME/ 




GRA'" 






151 DATA 


"DO — REDISPLAYS PREVIOUS CATALOG." 




160 DATA 
RA'" 

17 DATA 
S' ." 

17 5 DATA 


"DS + NAME — SAVES A PICTURE ON DISK BY THE NAME 'NAME/G 




"E — EXCHANGES PICTURE ON SCREEN WITH ONE STORED USING ' 




"H — CREATE A BACKROUND OF HORIZONTAL LINES." 




180 DATA 


"I — INITIALIZES THE USER-DEFINABLE KEYS. (SEE MANUAL)" 




190 DATA 


"K — TOGGLE BETWEEN NON-DRAWING MODE AND NEGATING MODE." 




200 DATA 


"LT — LOAD PICTURE FROM SHORT MEMORY." 




201 DATA 


"LP — LOAD PICTURE FROM PEPMANANT MEMORY." 




210 DATA 


"M — TOGGLE BETWEEN DRAWING COLOR. (BLACK OR WHITE)" 




220 DATA 


"N — NEGATE IMAGE. REVERSE EVERY PIXEL." 




230 DATA 


"P — HARDCOPY ON PRINTER. SEE MANUAL FOR PRINTER TYPES. 




240 DATA 


"Q — PLAID BACKROUND. EVERY OTHER PIXEL IS ON OR OFF." 




250 DATA 


"R — CREATE A PSEUDO-RANDOM BACKROUND." 




260 DATA 


"S — SAVE PICTURE IN PERMANANT MEMORY." 




270 DATA 


"TL — LOAD A PICTURE FROM TAPE." 




280 DATA 


"TS — SAVE A PICTURE ON TAPE." 




290 DATA 


"U — TURN PICTURE UP-SIDE-DOWN. " 




295 DATA 


"V — CREATE A BACKROUND OF VERTICAL LINES." 




300 DATA 


"W — CREATE WHITE SCREEN." 




301 DATA 
ES." 

302 DATA 


". — SET UP AN ORIGIN AT CURSOR LOCATION FOR DRAWING LIN 




",W — DRAW LINE FROM ORIGIN TO CURSOR POSITION. (WHITE)" 




303 DATA 


",B — DRAW LINE FROM ORIGIN TO CURSOR POSITION. (BLACK)" 




310 DATA 


"XI — UTILITY PROGRAM 11. (DRAW CIRCLES)." 




330 DATA 


*X2 — UTILITY PROGRAM 12. (THIS PROGRAM)." 




335 DATA 


"X3 — UTILITY PROGRAM #3. (ROTATE OR EXPLODE PICTURE)." 




340 DATA 


" ", "ARROWS — MOVE CURSOR AND DRAW." 




350 DATA 


"<SPACE BAR> ~ REVERSE THE PIXEL THAT THE CURSOR IS COVE 




RING." 






360 DATA 


"<SHIFT> — ALLOWS TO PROGRAM AND USE USER-DEFINABLE KEYS 




i » ****** 


DON'T USE <SHIFT> WITHOUT READING MANUAL *****" 




370 DATA 


"<BREAK> CANCEL ANY FUNTION OR END PROGRAM." 




380 DATA 






T I N 


LIST" 




400 DATA 


"EOF" 


1 ml 



Program Listing 4. UTIL3/BAS. 

5 DIM P(128,48) :CMD"B" , "OFF" 

10 CLS:PRINT §520 , "ROTATION OR EXPLOSION (PRESS R, E OR Q) " 

20 I$=INKEY$:IF 1$="" THEN 20 

30 IF I$<>"R" AND I$<>"E" AND I$<>"Q" THEN 20 

35 IF I$="Q" THEN CMD"I" , "GRAPH TEMP" 

40 IF I$="E" THEN CLS:PRINT §520, "WHAT IS THE RADIUS OF THE EXPLOS 

ION "; :GOTO 60 

50 CLS: PRINT §520, "HOW MANY DEGREES OF ROTATION "; 

60 INPUT B 

65 IF I$="E" THEN C=B:B=0:ELSE C=0 

70 B=B*3. 141592654/180 

85 IF F=l THEN 180 

90 CMD"L","LOAD/UTL" 

100 DEFUSR0=fcHF000 

110 G=USR0(0) 

120 XC=64:YC=24 

140 FOR X=0 TO 127 

150 FOR Y=0 TO 47 

155 IF POINT(X,Y) THEN P(X,Y)=1 

156 IF PEEK(14400)=4 THEN CMD"I ", "GRAPH TEMP" 
160 NEXT Y 

170 NEXT X 

180 CLS 

190 FOR X=0 TO 127 

200 FOR Y*0 TO 47 

210 IF P(X,Y>=1 THEN GOSUB 270 

211 IF PEEK(14400)<=4 THEN CMD"I" , "GRAPH TEMP" 
220 NEXT Y 

230 NEXT X 

240 CMD"L","SAVE/UTL" 

250 G=USR(0) 

260 F=l:G0TO 10 

270 XD=X-XC 

280 YD=Y-YC 

290 D=( (XD*XD+YD*YD) [0.5) +C 

300 IF XD=0 THEN XD=. 00001 

310 A=ATN(YD/XD) +B 

320 IF XD<0 THEN A=A+3.1415 

330 IF A>6.2832 THEN A=A-6.2832 

340 X1=D*C0S(A) +XC:Y1=D*SIN(A) +YC 

350 IF X1>=0 AND Y1>=0 AND Yl<=47 AND Xl<=127 THEN SET (XI, Yl) 

360 RETURN 



84 • 80 Micro, March 1965 



Program Listing 5. Load/SRC. 


00100 


ORG 


0FOO0H 


0O11C START 


LD 


HL.NAHE 


00120 


LD 


DE,DCB 


00130 


LD 


BC24 


00140 


LDIR 




00150 


CALL 


DLOAD 


00160 


RET 




004 80 DLOAD 


LD 


HL, BUFFER 


00490 


LD 


DE,DCB 


00500 


LD 


BC,0 


00510 


CALL 


4424H 


00520 


RET 


NZ 


00530 


LD 


DE,DCB 


00540 


CALL 


4436H 


00550 


LD 


HL, BUFFER 


00560 


LD 


DE,3C00H 


00570 


LD 


BC256 


00580 


LDIR 




00590 


LD 


DE,DCB 


00600 


CALL 


4436H 


00610 


LD 


HL, BUFFER 


00620 


LD 


DE, 15616 


00630 


LD 


BC256 


00640 


LDIR 




00650 


LD 


DE,DCB 


00660 


CALL 


4436H 


00670 


LD 


HL, BUFFER 


006 80 


LD 


DE, 15872 


006 90 


LD 


BC256 


00700 


LDIR 




00710 


LD 


DE,DCB 


00720 


CALL 


4436H 


00730 


LD 


HL, BUFFER 


00740 


LD 


DE, 16128 


00750 


LD 


BC256 


00760 


LDIR 




00770 


LD 


DE,DCB 


00780 


CALL 


4428H 


00790 


RET 




00800 NAME 


DEFM 


•TEMP/GRA' 


00810 


DEFB 


0DH 


00820 DCB 


DEFS 


100 


00830 BUFFER 


DEFS 


256 


00840 


END 


START 

End 



Program Listing 6. 


Save/SRC. 


001O0 


ORG 


OFO00H 


00110 START 


LD 


HLfNAHE 


00120 


LD 


DE,DCB 


00130 


LD 


BC,24 


00140 


LDIR 




00150 


CALL 


DSAVE 


30160 


RET 




00170 DSAVE 


LO 


DE,DCB 


00180 


LD 


HL, BUFFER 


00190 


LD 


BC,0 


00200 


CALL 


442011 


00210 


LD 


HL,3C00H 


00220 


LD 


DE, BUFFER 


00230 


LD 


BC,256 


00240 


LDIR 




00250 


LD 


DE,DCB 


00260 


CALL 


443 9H 


00270 


LD 


HL, 15616 


00280 


LD 


DE, BUFFER 


00290 


LD 


BC256 


00300 


LDIR 




00310 


LD 


DE,DCB 


00320 


CALL 


4439H 


00330 


LD 


HL, 15872 


00340 


LD 


DE, BUFFER 


00350 


LD 


BC256 


00360 


LDIR 




00370 


LD 


DE,DCB 


00380 


CALL 


4439H 


00390 


LD 


HL, 16128 


00400 


LD 


DE, BUFFER 


00410 


LD 


BC,256 


00420 


LDIR 




00430 


LD 


DE,DCB 


00440 


CALL 


4439H 


00450 


LD 


DE,DCB 


00460 


CALL 


4428H 


00470 


RET 




00800 NAME 


DEFM 


'TEMP/GRA' 


00810 


DEFB 


0DH 


00820 DCB 


DEFS 


100 


00830 BUFFER 


DEFS 


256 


00840 


END 


START 

End 



Program Listing 7. Display /SRC 



00100 


ORG 


7000H 


D0110 START 


LD 


A, (HL) 


00120 


CP 


13 


00130 


JP 


Z,402DH 


00140 


PUSH 


HL 


00150 


CALL 


EXTENS 


00160 


POP 


HL 


00170 


LD 


DE,DCB 


00180 


LD 


BC,23 


00190 


LDIR 




00200 


CALL 


DLOAD 


00210 LOOP 


LD 


A, (14400) 


00220 


CP 


1 


00230 


CALL 


Z, NEGATl 


00240 


CP 


4 


00250 


JP 


Z,CLS 


00260 


JP 


LOOP 


00270 CLS 


CALL 


1C9H 


00280 


JP 


402DH 


00290 DLOAD 


LD 


HL, BUFFER 


00300 


LD 


DE,DCB 


00310 


LD 


BC,0 


00320 


CALL 


4424H 


00330 


JP 


NZ,40 2DH 


00340 


LD 


DE,DCB 


00350 


CALL 


4436H 


00360 


LD 


HL, BUFFER 


00370 


LD 


DE.3C00H 


00380 


LD 


BC.256 


00390 


LDIR 




00400 


LD 


DE,DCB 


00410 


CALL 


443611 


00420 


LD 


HL. BUFFER 


00430 


LD 


DE, 15616 


00440 


LD 


BC,256 


00450 


LDIR 




00460 


LD 


DE,DCB 


00470 


CALL 


4436H 


00480 


LD 


HL, BUFFER 


00490 


LD 


DE, 15872 


00500 


LD 


BC,256 


00510 


LDIR 




00520 


LD 


DE , DCB 


00530 


CALL 


443611 


00540 


LD 


HL, BUFFER 


00550 


LD 


DE, 16128 


00560 


LD 


BC.256 


00570 


LDIR 




00580 


LD 


DE.DCB 


00590 


CALL 


4428H 


00600 


RET 




00610 EXTENS 


LD 


A, (HL) 


00620 


INC 


HL 


00630 


CP 


13 


00640 


JP 


NZ, EXTENS 


00650 


DEC 


HL 


00660 


LD 


A,'/' 


00670 


LD 


(HL) ,A 


00680 


INC 


HL 


00690 


LD 


A.'G" 


00700 


LD 


(HL) ,A 


00710 


INC 


HL 


00720 


LD 


A, 'K' 


00730 


LD 


(HL) ,A 


00740 


INC 


HL 


00750 


LD 


A, 'A' 


00760 


LD 


(HL) ,A 


00770 


INC 


HL 


007 80 


LD 


A,0DH 


00790 


LD 


(HL) ,A 


00800 


RET 




00810 


JP 


EXTENS 


00820 NEGATl 


LD 


HL, 15360 


00830 


LD 


BC,1024 


00840 NEG 


LD 


A, (HL) 


00850 


CPL 




C0860 


RES 


6, A 


870 


SET 


7, A 


00880 


LD 


(HL) ,A 


00890 


INC 


HL 


00900 


DEC 


BC 


00910 


LD 


A,B 


00920 


OP. 


C 


00930 


RET 


z 


00940 


JP 


NEG 


00950 BUFFER 


DEFS 


256 


00960 DCB 


DEFS 


100 


00970 


END 


START 



Circle 449 on Reader Service card. 



Master 

Handicapper 

1/ C / (S 



?ff 



EVALUATES FROM RACING FORM- 



;iass 

... . . 

->S.'.-'" : . 

Eainmgs 


Jockey ( 'od. 
Jockey (Last 
length 
. Tune o' Yea' 

,.::.: .. .:, , 



?f\ 



PROGRAM 

GLD Thoroughbred "Gold" Edition™ 

A Pull featured thorojghtwed analysis designed 'or ihe profes 
s-ona. ana serious novice $1 59.95 complete 

EGLD. Enhanced "Gold" Edition™ 

Goto' EditKsn with como'.ete Waste* Bev.or T M system mtegtaiea 
onto the same disk This powerful program wHI transfe- all horses 
and scores to the oet analysis with a smgie keystroke 

•Master Bettor TM ncijded! SI 99.95 complete 

GLTO. Limited Gold ™ 

fcnacies Professional Handicappers Ic assign speC'I'C values to tne 
'aciirj variahies tnev " 'eel are mportani 

PROFESSIONAL HANDICAPPING SYSTEMS 

Age S Cons*stex\c> ' S Speed '0 

Class IS Jockey 15 Workouts 

Condition 10 Trainer S Time o' Year 

Earnings i Post 10 Consistency 5 

100** 
Create program weight based r 
'or maximum win percentage 

of use The u ser needs no programming experience. 
.contains Integrated Betio- T M, $299.95 I 



s Everything OK lY/NI 
i a pan-cola; irac> arid dm 
irogram is designed 'o 



GD. Gold Dog Analysis™ 

The oniy professional dog hand»cappe r on the 
1 1 Speed 6) Condition 

2) Post Today 7) Running Style 

3) Kennei 8| Weight 

4i Post Last 9! All new nternai weighting 

51 Distance 10) NEW class indicator 

it vou are near a greyhound track, you can't a**0'6 not to use this 
P>°9'*» $149.95 complete 

Bettor TM, SI 99 95 



DOG 



iw»th integrated Maste 



1 29995 



0K 



i o' J" 



MHH Master Harness Handicapper™ 

Professional solware designed to provide a thorough 
trotter and oarer races m North America and Canaca Features 
C ass Post Positions Time Finish 

Drive' Track Conditions T.me Last Quarter 

Days Since -ast. Trainer Track Rating 

Gender Time ' * Temp Allowance 

$159.95 compete w/ntegrated Master Bettor™ $199.95 

PPX Professor Jones Football Predictor. Prof. Pix™ 

Complete Rwtbali Analysis with D*U-8«M. 

• i Overlays 4. Over'Unde- ' bets 

21 Pom' Spreads 5| Data Base Slats 

31 Super Plays' 6i Molds 100 teams 

Highest percentage of winners 1983 $39.95 complete 

$99.95 Httn Data Base Management 



'. froi. Pix' 



$$ 



A CO 



MB Master Bettor™ 



ALL Ma 



1) Win'Piace'S"ow 4| Tntecla 

2) Oume'ia Si Pik Six 

3| E»acta 6) Daily Double 

A perfect program designed to use result 
to generate best bet' 

Model 100 Portable Systems 

TPi Thoroughb'ed/Pace'M I24KI 
DGtMaster Dog Analysis™ I24K) 



andicapper programs includes 



7) Money Management 
Bl Odds Analysis 
9l and Much More 
'rom al. Master Prog-ams 
$59.95 complete 



$99.95 compete 
$99.95 complete 



Professor Jones' Basketball 
Analyzer Complete Program $79.95 



Send check / money order / VISA / MasterCard 
(Include expiration date) to _ 

Prof. Jones 



TELEPHONE 
(208) 342-6939 



1114 N. 24th St. 
Boise, ID 83702 



TERMS: FREE SHIPPING ALL SOFTWARE 
Add $6.00 hardware / CO D. Add $600 / Add 3 
weeks personal checks ' Add 4.5 t "o ID residents I 
Add $600 outside USA/ Prices subject to change 



BROCHURE AVAILABLE 



80 Micro, March 1985 • 85 



Circle 82 on Reader Service card. 



NEW! 
IN STOCK!! 




NO WAITING!!! 



$777 

5 MEG 
HARD DRIVE 



BEWARE!! 




Comes complete with cable 

and your choice of 

software driver * (CP/M, LDOS, TRSDOS) 



1 Megabyte Hard Drive 

1 195 

15 Megabyte Hard Drive ■ ■ W^# 

1495 

30 Megabyte Hard Drive ■ ^WW 

SYSTEM FEATURES 

• For TRS-80 Model 3-4-4P 

• Size Rated After Format 

• Error Checking & Correcting 

•Model J requires LDOS 
Model 4 requires TRSDOS 62 or Montezuma Micro CP/M 2 2 



$10 Handling & shipping 



Would you buy from this 
hard drive speoalisP 



Seriously folks, there are firms that offer benefits or products 
seemingly too good to be true. There's no reason to expose yourself 
to possible unhappiness. Aerocomp has proven record of thousands 
of satisfied TRS-80® customers. Look at the back issues of this 
magazine. You won't find many companies that have been around as 
long as Aerocomp. We fully support TRS-80® computers and most all 
operating systems including CP/M E 2.2. Aerocomp leads the way to 
low hard prices so you can afford to enjoy the benefits of increased 
storage and faster disk I/O. These units are precision engineered, 
tested and delivered complete and ready to use, right from stock. 
Guaranteed for one year parts and labor. You can count on us to be 
here if you need us. As always, your satisfaction is assured with our 
14 day free trial offer. How can you wrong? Specify the software 
driver of your choice and start enjoying your computer's real 
capability. Do it today! 



See opposite pagetttttt 



it 



ii 




Double Density Controller 



Add 80% more capacity to your disk 
system with the Double Density 
Controller (DDC) from Aerocomp. 




The Story 



Some products have what it takes to seem to last forever Our "DDC" is 
one of those products. What it does is allow you to operate your TRS-80 
Model 1 disk system in double density In this case double density means 
almost doubling the storage capacity of your diskettes Single density, thats 
the way Radio Shack designed your Model I expansion interface, organizes 
your disk into 10 sectors per track. Each sector contains 256 bytes of data 
for a total storage capacity of 2,560 bytes or 2.5K per track times the number 
of tracks your dnve is capable of adtfessing. Double density, on the other 
hand, wntes 18 sectors per track each containing 256 bytes for a total of 
4.608 bytes or 4.5K. That 80% more data in the same space. Why didn't 
Radio Shack do that in the beginning, you ask? Well it costs money to do 
double density because it is more difficult to do than single density and the 
data is harder to capture reliably. That means more cost and the Model I 
was meant to be a low-cost computer for the masses. Therefore, no double 
density. 

The Facts 

Other companies introduced double density controllers for the Model I but 
they were not so good. We waited and waited but. even new models failed 
to correct problems with data separation that kept cropping up. So we went 
to work and came up with a new design to cure the old problem. At last! 
A double density controller for the Model I with a higher probability of data 
recovery than with any other double density controller on the market then 
or since Our analog design phase lock loop data separator has a wider 

86 • 80 Micro, March 1985 



capture window than the digital types the others use This allows high 
resolution data centering. Our "DDC" analog circuit allows infin itely vanable 
tuning. The attack and settling times are optimum for 5 25" diskettes. The 
oft-stated fears of adjustment problems have been proved groundless by 
thousands of satisfied users the world over The bottom line here is 
state-of-the-art performance and reliability 

ORDER YOURS TODAY 

TRS-80 Model I disk system owners who are ready for reliable double density 
operation will get 80% more storage per diskette; single and double density 
data separation with far fewer disk I/O errors; single density compatibility; 
simple plug-in operation. You will need a disk operating system that has the 
necessary double density software. All the popular DOS's (except TRSDOS) 
have the drivers. We have put together two special packages in the event 
you don't already have one of the more popular DOS's 

"DDC" by itself $99 

"DDC" and LDOS 1 59 

"DDC" and NEWDOS 80 v2.0 1 89 

Cease add M Handling & snipping 



Or 40 Track 
\3° 80 Track 
& Single Head 
Cr Dual Head 
^Bare 
& Complete 
O- Full Size 
(T Half Size 
& 5-1/4" or 8" 



COMPLETE DRIVES am *> s*h 

Fits TRS-80 Models 1 ,3.4 and the jj^B 

Color Computer plus the others j^Hj 

that use standard drives. The drive ^H 

of your choice is mounted ^^ 

in a sturdy, all-steel cabinet. An external gold 
plated dnve connector allows cabling without 
disassembly of the cabinet Half-high drives come 
in a full-size cabinet that will hold and power our 
half-high drives Single drives have a panel 
covering the unused space allowing a second drive 
to be added at any time. All are shipped fully 
assembled ready to use. Specify silver or white 
enclosure. 

40tk Single Side full size (TM100-1) $ 169 

40tk Double Side full size (TM100-2) 209 

oOtk DS lutt size (TM101-4) 299 

1-40tk SS half-high FD-55A in dual case 179 

2-40tk SS half-high FD-55A s in dual case. ..31 9 

1-40tk DS half-high FD-55B in dual case 219 

2-40tk DS half-high FD-55B's in dual case .399 

1-80tk DS half-high FD-55F in dual case 249 

2-80tk OS half-high FD-55F s in dual case. .449 



These 8 " Thinline drives work ^^^R 

with the Model 2 and 12 plus H H 

others that use standard ^^B 

dnve? The rugged all-steel pB^P 

cabinet has an extra heavy duty power supply 
rated for continuous operation. A removeabte air 
filter allows only clean air to circulate. Cabinets 
with single dnves are supplied with a blank panel 
to cover the unused space A second drive can 
be added at any time Add $12 shipping and 
handling 

1-8" SS Tandon TM848-1E & case $389 

2-8' SS Tandon TM848-1E's & case 649 

1-8' DS Tandon TM848-1E & case 499 

2-8" DS Tandon TM848-2E's & case 799 



BARE DRIVES amusm -_ 

These drives are completely jm a«M M 
burned-in and tested for your H ^^B J^M 
ultimate satisfaction. Add that I ^H ^( 
extra drive today! Please add $5 I BH H 
for shipping and handling for each drive 
ordered 

40tk SS full size Tandon TM100-1 $ 129 

40tk DS full size Tandon TM100-2 169 

40tk SS half high TEAC FD55-A 129 

40tk DS half high TEAC FD55-B 169 

80tk DS full size Tandon TM101-4 239 

80tk DS half high TEAC FD55-F 239 

8" SS half high Tandon TM848-1E 290 

8" DS half high Tandon TM848-2E 360 



DISK DRIVES 

Aerocomp leads the way to the BEST value in disk drives and related peripheral products 
on the market today. Sound engineering, high performance, quality construction, no-risk 
free trial, outstanding warranty service and a reputation for doing the right thing make 
your decision to buy Aerocomp the correct one. Please look over our offerings and 
make your selection. When you have made your choice call our toll-free number and 
place your order. If you need assistance in making your selection, please call our 
information number. It's listed in the box at the bottom of this ad along with the technical 
assistance number for those of you who want to get right to the nitty-gritty. Thanks, 
we all appreciate your business and will continue to do our very best to support 
you. 



TRS-80 Model III & 4 

DISK CONTROLLER 

and 

DRIVE KITS 



Convert your cassette Model III or 4 to 
disk operation with one of our complete 
kits. You receive our own advanced disk 
controller board with gold plated edge 
contacts capable of 4-drive operation; 
our own power supply, plated steel 
mounting towers complete with RFI 
shield plus all the cables and hardware 
necessary. Detailed instructions are 
included. All you need is a screwdriver 
and a pair of pliers. System kits come 
with 40 track single-side Tandon drives 
(TM100-1) or just order the basic kit and 
pick the drives you want from the 
selection in the next column. 

CONTROLLER KIT $199 

(Complete ■ Everything you need - less Wives! 

1 DRIVE SYSTEM 319 

2 DRIVE SYSTEM 449 

CONTROLLER ONLY 1 1 o 

MOUNTING KIT & 

POWER SUPPLY 95 

RS-232 BOARD 69 



MISCELLANEOUS GOODIES M s*h 

Model 1 TRSDOS 2.3 disk & manual $25 

Model III TRSDOS 1.3 disk & manual 25 

LDOS (specify Model I or III) 69 

NEWDOS 80 v2 (specify Model I or III)... 119 

10 disks in smoke lib box, Lifetime Guar 16 

5 25" drive power supply & enclosure 59 

8" drive power supply, end & tan 

5V-24V 150 

525" 2-dnve cable 24 

5.25" 4-drive cable 34 

5 25" Extender cable with gold contacts 13 



FREE TRIAL OFFER 

Use your Aerocomp hardware product 'or up to 14 days 
N you are not satisfied tor ANY REASON (except misuse. 
damage or improper handling), return it (insured) in the 
original shipping container for a full purchase price refund. 
less shipping Sorry, this offer does not apply to 
software. Defective software will bo replaced only. Any 
hardware/software specials will be prorated and the 
software will be charged at the regular unbundled price 
we have confidence m our products and we know you will 
be satisfied 

WARRANTY 

We offer a one year warranty on parts and labor against 
defects in matenals and workmanship In the event service 
becomes necessary for any reason you will find our service 
department fast friendly and cooperative We want to Keep 
you happy Out of warranty repairs are also available 



OUR FAMOUS 

MODEL I STARTER 

PACKAGE 

If you have a Model I and an Expansion 
Interface this is what you need to get 
started with disks. Included is one 40 
track single-side disk drive complete 
with matching silver case and power 
supply, a 2-drive cable, a TRSDOS 2.3 
disk operating system and TRSDOS 
manual plus all insurance and delivery 
charges to your door (lower 48 states). 

Yours for only ©/Oc/ 

You can add our renown "DDC" double 
density controller to either the Radio 
Shack or the LNW E/l for 80% more 
storage capacity on your drive. Go 
ahead, you deserve increased density. 
See the opposite page for the latest 
details. 



$99 



100% BURN-IN and TEST 

AH our products are burned-in and fully tested prior to 
shipment We want you to receive an item ready-to-go 
AEROCOMP means reliability 1 

ORDER NOW! 

Call our toll-tree number service and place your order Have 
your American Express Mastercharge or Visa number 
ready \Ne will not charge your card until the day we ship 
your order You may order by mail using your credit card 
check or money order Personal and company checks are 
welcome and cause no shipping delay as long as they are 
bank pnnted and the signature exactly agrees with the 
name pnnted on the check We wiH ship surface COD with 
no deposit but aH COD s require cash or a cashier's check 
on delivery Texas residents add 6% State Sales Tax No 
tax collected on out of state shipments Canadians add $20 
to your orders if over $500 for customs 
documentation. 



CALL TOLL-FREE 

800-527-3582 us* 
800-442-1310 texas 

For inquiries or information 

or to check on or change an order 

call 214-339-8324 

AE^GCGfilP 

Redbird Airport, Bldg. 8 
P.O. Box 24829 
Dallas, TX 75224 

80 Micro, March 1985 • 87 



BBS EXPRESS / by J. Stewart Schneider and Charles E. Bowen 



All Systems Go 
For the BBS Express 



With spring just around the cor- 
ner, we figured we'd do a little 
spring cleaning for the BBS Express. 
This means taking care of some unfin- 
ished business. 

Out first task is to publish the code 
you need to get your board up and run- 
ning. The Program Listing gives you 
this code, while the Table outlines the 
functions of the individual lines. 

Once you type in the listing, your 
board will be in working order: It wel- 
comes, registers, and updates each 
user's record. In addition, it will dis- 
play options in each of its menus that, 
in turn, direct callers to the proper sec- 
tion of the BBS. 

Still missing from the BBS Express 
is the code for the data base catalog, 
which we'll include in next month's 
column. ■ 



The BBS Express, 80 Micro's bulle- 
tin board system, is open 24 hours a 
day. Call us at 603-924-6985 to see the 
finished product. UART parameters 
are 300 baud, 7-bit words, one stop 
bit, and even parity. 

You can reach J. Stewart Schneider 
and Charles E. Bowen either through 
their bulletin board at 606-739-6088 or 
c/o Saturday Software, P.O. Box 404, 
Catlettsburg, KY 41129. 



System Requirements 



Model m 
48KRAM 
Disk Bask 
Two disk drives 



LOADM 




Program Listing. BBS module. 

1 REM Towne Crier v. 2.0 

2 REM version date 5/19/13 

3 REM COPYRIGHT 1984 SCHNEIDER AND BOWEN 

10 CLS:CLEAR5000:DEFINT A-Z : I$=STRING$ ( 255 , 32) : SR$=I$: LSETSR$=CH 
R$(0) :S$=STRING$(62,"-") :CK$ = LEFT$ ( I $ , 20) 

11 CH=(PEEK(-1)=1) 

15 DIMI$,CT,CM$,Z,MR,X,A$,P1$,TL,N1$,E,ND,CK$,EN,RN,C$,ER,MN,NM, 

F2$,S,SN,SY,A1,LN,LP$,MN$,RD,RP$,S7$,FL$,NA$,SV,AS,C1$,D$,FS 

16DIMNC,PR,B$ f HI,M,NV,SF$,SH,A2$,AC,Ml$,N,SF,Tl$,VW,Y,C2$,CC! ,CR 

,D1$,DF,F1,L,L1$,N5$,ND$,S1$,S2$,TT$,UA$,V1$,CA,DC$,NM$ 

17 DIMPF,PW$,S6$,S9S,SA$,SE$,SL,SL$,SM$,SP$,SV$,XA$,AD$,CT$,IN$, 

K,RE,S8$,SC$,S$,SN$,SR$,T$,T2$,UH$,WZ,XL$,CA$,CV,M2,MX 

18DIMNW$,0T$,P,P$,PM,RC,S$,SC,SS$,TN,U1$,U2$,U3$,U4$,UL$,B,C,CL$ 

,FD,HM,N$,P,TR,TT,U$,ZM$,A,DU$,G,Ll,R,X$,Z9,DD$,SD$ 

20 DIM M(50) ,MG$(20) ,MG(20) ,FS(16) ,S$(16) :DEFUSR0=4HFE00 :DEFUSR 

l = «,HFE6C:DEFUSR2 = iHFE7F:DEFUSR3-&HFEFl:TL=-l:NC = 0:U$ = "% 

% tlttl ACCESS: it #" 
30 PF«4HFF2A:POKE PF,255' PRINTER FILTER SWITCH 
40 MN=&HFE04:POKE MN,245' MAX. RECD LINE LENGTH 
50 FD=4HFEF5' SEARCH TARGET POKE 

60 TT=SHFE45:TN«5.HFE10:POKE TT,iH20:POKE TT+1 ,4H14 : POKE TN,&H20: 
POKETN+l,6H49* TONE TEST SWITCHES 
70 NP»SHFE2E:POKE NP,4H33' NO PRINT SWITCH 
80 RE=iHFEDD' CHAR. REMAINING ON VID LINE 

90 VW=4HFEE0' VIDEO WIDTH 

100 DEF FN FLS(X)«RIGHT$(STR$(X) ,LEN ( STR$ ( X) ) -1 ) : DD$=" : 1 " : SD$=" : 
0" 
110 DEF FN P(R,A$)=CVI(MIDS(A$,2*R-1,2)) 

Listing continued 



68*80 Micro, March 1985 



Circle 440 on Reader Service card. 
I 



Circle 46 on Reader Service card. 



3.5 Inch MicroDrive . 
with Integrated Software $799 complete- 



See what a difference 
our portable disk drive 
and software will make! 




INCLUDES 

• T'MAKER " an Integrated Software Program with: 

— Wordprocessor — Spreadsheet 

— Spelling Checker — Relational Data 

— 50.000 Word Dictionary Base Manager 

• Communications Software (MODEM) 

• Popular CP'M '' 2.2 Disk Operating System 

• Additional 32K Bytes Ram lor 64K Bytes Ram Total 

• Battery Powered 3 5 in Drive. 360K Bytes per Diskette 

• Battery Charger Cables & Mounting Hardware Included 

Attaches to your MODEL 100. NEC8201 and OM-10 

CALL OR WRITE 

PIC, 18013 Skypark Circle, Suite D, Irvine, CA. 92714 

71 4-261 0503 



'Does not include Computet MC VI! 
California 'esidents or-v 



check plus $5 snipping ana 6 ; b sales ta> 



Copy CP/M - TRS-80 • PC/MS-DOS! 

•HYPERCROSS/XT 2.0 Direct Disk To Disk File Transfer* 
Now you can CROSS the barrier between disk formats 1 Using HYPERCROSS you can 
directly COPY dies between TRS-80 disks and many different CP/M and IBM PC disk formats 
on your own TRS-80 or MAX-80 You can also FORMAT an alien disk, display the 
DIRECTORY, and KILL files If you have different computers at home and work use 
HYPERCROSS to transfer manuscripts. BASIC, FORTRAN PASCAL or C programs Viscalc 
files, data bases and binary files 

•Mew feature - Maaa Me transfers Now you can copy many files at once using the new TAG 
feature in HYPERCROSS (XT V2 only) which allows you to tag any number ol files for mass 
copy or deletion 

•Format* supported: IBM -PC and MS-DOS compatibles include DOS 1 .1. 2 0/2.1 single and 
double sided and Tandy 2000 CP/M includes Aardvark. Access. Aitos ATR CCS. 
Cromemco. DEC. Eagle. Epson. HP. IBM CP/M 86, Heath/Zenith. Kaypro. LNW. MAX-80. 
Morrow. NEC. Osborne. Otrona. Sanyo. Superbrain. Teletek. Televideo. TRS-80 Holmes. 
Hurricane Compactor, MM Shuffle Board. Montezuma. R/S CP/M 3 0- Xerox. Zorba and 
standard 6 inch CP/M 

Hardware required: 48k and 2 drives minimum. Model 1 needs a doublet Some formats need 
double sided or 80 track drives 80 track skip supported 
PRICES including disk manual and shipping 

Hypercross CP/M Single sided formats only £49.95 

Hypercross PC/MS-DOS Single sided formats only $49.95 

Hypercross XT V2 with 70 CP/M and PC formats $9995 

Please specify TRS-80 Model 1.3. 4/4P or MAX-80 

NEW Supplementary format package 

Now available - an additional 50 formats making 120 in all including Rainbow MS-DOS. 

MAX-80. Olympia. Tl. Toshiba, Sharp, Heath-Magnolia, all 8 of the new Montezuma version 

2 2x formats and many others. Needs XT V2 to run - £39 95 ppd 

HYPERZAP 3.2 DISK MAGIC! 

If HYPERCROSS is the program for files then HYPERZAP is the program for sectors tracks 
and whole disk' On the market tor 2 years. HYPERZAP is more than |ust another disk copying 
program - it is the program for analyzing, copying, repairing, creating floppy disks of all kinds 
It will copy any TRS-80 formates well as many others such as CP/M PC. CoCo etc Specially 
designed 10 handle mixed density sectors on any track in any sequence Many features tor 
reading, writing, editing track and sector data Hyperzap is the tool that lets you be m charge 
Make your own self booting disks Take your own CMD file and turn it into a dual booting Mod 
1/lll/IVdisk 

Autopilot mode learns, saves and repeats procedures Disk comes with fascinating examples 
including one to move your DS Montezuma CP/M 13* to 2 2x at a stroke - magic indeed' 
Hardware needed 48k 1 drive minimum. One version for all TRS-80 mode's 1. 3 and 4 
Manual and disk $49.95 ppd. 

May your---==(*TRS-80*|==---live forever 1 

HYPERSOFT 

PO Box 51155 Raleigh. NC 27609 
(9191847-4779 6-11 pm EST 
•All trademarks are the properties o1 the companies represemed 



Circle 187 on Reader Service card. 



Get down to business with your TRS-80 



60 Business Applications 
Programs for the 
TRS-80 Model 100 

by Terry Kepner & Mark 
Robinson. Here are 60 
powerful programs for interest 
calculation, annuities, depreciation, 
breakeven sales analysis, and 
more. $17.95. 18052 




Guide to Super Software 
for the TRS-80 
Color Computer 

by Scott L. Norman. Looking for 
CoCo software? Want to save 
time and money 9 This book 
reviews dozens of current word 
processing, mail-merge, database, 
and spreadsheet software 
$18.95. 15990 








User Guide and Applications 
for the TRS-80 Model 100 

by Steven Schwartz. Gain 
expertise on the Model 100 with 
14 ready-to-run programs for 
business. This package includes 
programs for statistics, graphics, 
sound, and more. $42.95. Or buy 
the book or cassette separately 
- the book is only $17.95 (15970); 
the cassette is only $25.00 (18075). 

SuperSCRIPSIT Word 
Processing 

by Jeanette Bieber-Moses. Learn to use SuperSCRIPSIT 
with ease and confidence -from basic skills to 
advanced applications. This book incluOes dozens of 
examples, illustrations, and an extended Help section 
for the TRS-80 Model III, 4, and 4P. $15.95, 18086, 
coming in April. 

To order, contact 

Scott, Foresman and Company 

Professional Publishing Group, Dept. EM 

1900 East Lake Avenue 
Gtenview. IL 60025 
(312) 729-3000 



80 Micro, March 1985 • 89 



BBS EXPRESS 



Lines 


Description 


1-120 


Defines variables and POKE 




locations, and dimensions arrays 


130-180 


Telecommunications input 




statement 


300-340 


Command processor 


440-560 


Handles message prompts 


570-790 


Alters user records 


800-850 


Section prompt and display 


860 


Creates file name and message 




number from AS 


870-910 


Locates records in membership 




log and data base catalog bi- 




nary tree 


820-930 


Writes new users to disk 


1090-1170 


Collects new user information 


1235 


Calculates time 


1240-1355 


Retrieves system information 




from disk, prints title page, waits 




for caller or console command 


1380-1620 


Caller log-in routine 


1630-1670 


Checks caller's mailbox 


1680-1730 


Welcomes visitor, prints 




bulletin and main command 




prompt 


1740-1890 


Main command functions 


1900-2620 


Main SYSOP functions 


2630-2720 


Sign-off routine 


2850-3270 


Read and scan routines 


5190 


Error trap 


Table. L 


ne definitions for BBS module. 



Pascal-80 



As Reviewed in 

80 Micro 12/82 80 US 2/83 

Electronic Learning 6/83 

Standard Pascal with many 
special features including 
random files up to 16 mega- 
bytes, peek, poke, and call, 
accessable pointer variables 
(like C), include, chain, and 
rename, graphics. Call or write 
for FREE descriptive brochure. 

Pascal 80 $79* $2 shipping 
Pascal 80 School Package $279 
Pascal 80 Trial Version $14.77 
Graphics Package $39.95 
• NOW on CP/M! 

Require! CP/M 80. 8"S5SD, Epson. 
Kaypro, Apple CP/M. Morrow formats 
available. Call for information on 
other formats. $39.95 

JSJEW QLASSICS 
§OFTWARE 



239 Fox Hill Road 

Denville. NJ 07834 

201-625-8838 






Listing continued 

120 GOTO1240 

130 LSET I$=" " 

140 CT«USR0(VARPTR(I$) ) :IF CT=-1 THEN 2630 

150 CR=INSTR( I$,CHR$(13)) :IF CR=0 THEN 170 

160 IF NC THEN MID$(IS,CR,1) =CHR$(141) ELSECT=CR-1 : MID$ ( I $ , CR, 1 ) 

=CHR$(32) 

170 IF TL THEN Z = USR1 ( VARPTR{ I 5) ) 

180 RETURN 

300 IF LEN(CMS)<=1 THEN C$*CM$:CM$="" : RETURN 

310 C$>=LEFT$(CM$,1) :CK$=RIGHT$(CM$,LEN (CM$) -1) :IF (C$<=CHR$ ( 32) ) 

OR(C$=";") THEN 300 
320 IF CM$=""THEN RETURN 

330 IF (ASC(CM$) <=32) OR ( ASC (CM$) =59) THENCM$=RIGHT$(CM$,LEN (CM 
S)-l) :GOTO320 
340 RETURN 

440 IF (SF) THEN RETURN ELSE RC=0:IF ( ( LEFTS (T$ , 5) ="SYSOP") AND 
SY) OR(LEFT$(T$,LEN(NA$) ) =NA$) THEN RC=-1 
450 K=RC:IF ( LEFTS (TT$ ,LEN ( NAS) ) =NA$) OR (SY) THEN K=-l 
460 IF RC THEN S7$=CHR$(ASC (S7$) OR 16):LSET S2 S=CHR$ ( ASC (S7 $) 
RASC(S9$) ) :PUT 1,RN 
465 IF (BM) OR (PR) THEN RETURN 

470 PRINT" (C RE T)";:IF K THEN PRINT" (D = DELETE)"; 
480 IF SY THEN PRINT" (P = PRINT IT)"; 
490 GOSUB130:PRINTCHR$(17) ; 

500 IF SY AND ASC(I$)=80 THEN PR=-1 :GOSUB4720 : PR=0 :GOTO470 
510 IF LEFT$(IS,1)="T" THEN RN=E:RETURN 
520 IF LEFT$(I$ f 2) ="RE" THEN GOTO3380 
530 IF NOT( (LEFT$(I$ r l)="D") AND K) THEN 545 

540 PRINT'Please confirm delete (y/n) "; :GOSUB130:PRINTCHR$(17) : I 
F ASC(I$)=89 THEN MID$ (KN$, 2*RN-1 ,2) =MKI$(-FNP( RN,MNS) ) : PRINT"De 
leted":MID$(I$,l,l)-"C" 
545 IF LEFT$(I$ f l)="C"THEN RETURN 

550 PRINT'C = Continue" :PRINT"RE = REply to message" : PRINT"T = T 
op (ExitRead Function) ": IF K THEN FRINT"D = Delete message" 
560 GOTO470 

570 GET 2,MR:PRINTCHR$(12) ; 
580 PRINT"Name: ";N1S 
590 PRINT" 1. Street Address: ";A1S 

600 PRINT"2. City/State: " ;C1S: PRIKT"3. Video Width: ";CVI(V1$): 
PRINT"4.Line Feeds: " ;L1$:PRINT"5. PASSWORD: " ; PIS: PRINT"6 . ACCE 
SS: ";A2S 

610 PRINT"Number of calls: ";CVI (C2$) ;PRINT"Number of messages:" 
;CVI(M1$) 

620 PRINT:PRINT"Tap ENTER to record" : PRINT"Type a number to alte 
r "; 

630 GOSUB130:PRINTCHRS(17) :IF CT=0 THEN CLOSE: RETURN 
640 IF VAL(IS)>6 OR VAL(I$)<1 THEN 620 
6 50 0NVAL(I$) GOSUB670,6 90,710,730,7 60,7 8O 
660 PUT 2 f MR:GOTO570 

670 TL=0:PRINT"Address: " ; : GOSUB130 : TL=-1 : PRINTCHRS ( 17) : IF CT>0 
THENLSETA1$=I$ 

6 80 RETURN 

690 TL=0:PRINT"City/State: " ; :GOSUB130 :TL=-1 :PRINTCHR$( 17) : IF CT 

>0 THENLSETC1S=I$ 

700 RETURN 

710 PRlNT"Video Width: " ; :GOSUB130 : PRINTCHR$(17) : IF VAL(I$)>20 A 

NDVAL(I$)<255 THEN LSET Vl$=MKIS(VAL(r$)) :IF M=MR THEN SV=VAL(I$ 

) :POKEVW,SV 

7 20 RETURN 

730 IF Ll$="Y" THEN LSET Ll$="N" ELSE LSET Ll$="Y" 

740 IF MR«=M THENUL$=L1$:IF L1$="Y" THEN POKE PF,255 ELSE POKE PF 

i0 

7 50 RETURN 

760 PRINT"PASSWORD: " ; :GOSUB130 : PRINTCHRS ( 17) : IF CT>0 LSETP1S=I$ 

770 RETURN 

780 IF SY THEN PRINT" Access : " ; :GOSUB130:PRINTCHRS ( 17) : LSET A2S= 

1$ 

790 RETURN 

800 PRINT"Section (Tap ENTER for all, ? f orlist) " ; :GOSUB130 :PRIN 

TCHR$(17) ; 

810 IF CT=0 THEN SE$=UA$ : RETURN 

820 IFASC(IS) =63THENGOSUB830:GOTO800 

821SE$=LEFT$(IS,CT) : FORZ-1TOCT: IFINSTR ( UA$ ,MIDS ( SE$ , Z , 1) ) =0THENP 

RINT"Unauthrized to Section " ;HIDS (SE$, Z,l) :GOTO800ELSENEXT:RETU 

RN 

830 FOR Z=l TO 15:IF (S$( Z) =STRINGS( 16 , 32) ) OR( INSTR(UA$,MID$( "0 

123456789ABCDE",Z,1) )=0) THEN 850 

840 PRINT MIDS("0123456789ABCDE", Z,l) ; " n ;S${Z) 

850 NEXT:RETURN 

860 N$=FN FLS(MN) :MID$ ( A$ , INSTR( AS , "/ " ) -LEN ( N$) ,LEN(N$) )=N$:RETU 

RN 

870 Y=1:IFEN=1 THEN RETURN 

880 GET 2,Y 

890 IF CKS>N1$ THEN FS=CVI ( RP$) : IF FS=0 THEN LSET RPS=MKI $ ( EN-Y) 

Lhting continued 



90 • 80 Micro, March 1985 



Circle 357 on Reader Service card. 



BBS EXPRESS 



Listing continued 



:PUT2,Y: RETURN 

900 IF CKS<=N1$ THEN FS=CVI ( LP$) : IF FS=0 THEN LSET LP$=MKI $ ( EN-Y 

) :PUT2,Y: RETURN 

910 Y=Y+FS:GOTO880 

920 LSET Nl$=N5$:LSET Al$=AD$:LSET C1$=CT$:LSET L1S=CL$: LSETA2$= 

CAStLSET M1$=MKI$(0) :LSET C2$=MKI $ ( 1) : LSET P1$=PW$: LSETUH$=MKI$ ( 

0) :LSET Vl$=MKI$(CV) :LSET LP$=HKI$( 0) -.LSET RP$=MKI$(0) 

930 PUT 2, NM: RETURN 

1090 N53="":TL=-l:PRINT"Name: "; :GOSUB130 : PRINTCHR$ ( 17) : IF CT=0 

THENRETURN ELSE N5 $ = LEFT$ ( I $ ,CT) 

1100 LSET CK$=N5$:EN=NM:GOSUB940:IF NOT ER THEN PRINT"Name inuse 

. " :PRINT"Please add an initial. " :GOTO1090 

1110 TL=0:PRINT"Street Address: " ; :GOSUB130:PRINTCHR$(17) : IF CT> 

THENAD$=LEFT$(I$,CT) ELSE 1110 

1120 PRINT"City/State/Zip: " ; :GOSUB130 :PRINTCHR$ ( 17) : IF CT>0 THE 

MCT$ = LEFT$U$,CT) ELSE 1120 

1130 CLS:PRINTCHR$(12) ; N5$ : PRINTAD$ : PRINTCT$ : PRINT : PRINT" Is this 

correct (y/n) ?" ; 
1140 TL=-1:GOSUB130:PRINTCHR5(17) 
1150 IF ASC(I$)=78 THEN 1090 ' "NO" 
1160 IF ASC(I$)<>89 THEN 1140 ' INCORRECT RESPONSE 
1170 RETURN 

123 5T!=VAL(MID$(TM$,10) ) *3600+VAL (MID$ ( TM$ , 13 ) ) *60+VAL ( MID$ ( TM$ , 
16) ) : RETURN 
1240 ONERRORGOTO5190 

1250 FORX=1TO20:MGS(X) =STRING$ ( 80 , 32) :NEXT 
1260 GOSUB190 
1270 GET 3,1 

1280SL=CVI(SL$) :SH=CVI(SH$) : CA$=SA$ : CV=CVI ( SV$) :SN=CVI(SNS) :PW$ = 
SP$:CL$=SF$:X=CVI(SM$) :SC=CVI(SCS) :ND=CVI(ND$) :NM=CVI(NM$) :DS=CV 
I ( DS S ) 

1290 POKE VW,SV:IF UL$="N" THEN POKE PF,0 
1300 GOSUB210 
1310 GET3,2 

1320 FOR X=1T016:SS(X)=F$(X) :NEXT 

1330 FIELD 3,255 AS ZM$:GET 3 , 3 :MN$=LEFT$ ( ZM$ , 2*SN) :CLOSE 
1340 CLS:FOR X=0 TO 127 : SET(X , 0) : SET( X , 47) : IF X<48 THENSET ( ,X) : 
SET(127,X) :NEXT ELSE NEXT: PRINTP130 ,TIME$ j 

1350 PRINT@334,"The Saturday Software BulletinBoard" ; : PRINT@410 , 
"Version 2.0" ; : PRINT§452, "Copyright (c) 1984 by J.Stewart Schnei 
der and C. E. Bowen" ; :PRINT817 8, "Chat Mode" ; : IFCHTHENPRINT"ON "; 
ELSEPRINT'OFF"; 

13S5 PRINT3587 ,"<S>et Date/Time <C>hat Toggle";: PR 

INT@651 , "<L>ocal Operation <E>xit Towne Crier"; 

1360 IF (INP(SHE8) AND32) =0 THEN 1380 
1365 A$ = INKEY$:N = PEEK(i,H387F) : IFN=0THENl360 
1375 IFA$<>""THENA$=CHR$(ASC(A$) AND95) :GOTO6500 ELSE1360 
1380 CLS:PRINT:PRINTCHR$(12) ;"Hello, and welcome to" : PRINT"the T 
he TowneCrier BBS! (Ver. 2 .0) ": PRINT: PRINT 
13 90 FOR X=l TO 5 
1400 IFINKEY$O""THEN1400 

1410 NEXT: IN$=TIME$:TM$=1N$: GOSUB 1235:IN!=Ti 

1420 CLOSE:PRINT"Are you a first-time visitor ? (y/n) "; :GOSUB130:P 
RINTCHR$(17) 

1430 IF ASC(I$)=89 THEN 1530 ■ YES 
1440 IF ASC(I$)<>78 THEN 1420 

1450 PRINT"Name: " ; :GOSUB130 : PRINTCHR$ ( 17) : IF CT=0 THEN 1420 ELS 
ENA$=LEFT$(I$,CT) 

1460 PRINT"Checking Membership Log. . . " :CLOSE:GOSUB240 :LSETCK$=NA 
S:EN=NM:GOSUB940 

1470 IF ER THEN PRINT"Not recorded" :GOTO1420 
1480 IF PW$=P1$ THEN 1515 
1490 FOR TR=1 TO 3 : PR I NT "PAS SWORD: "; 

1500POKENP-1 , : POKENP, : GOSUB130 : PRINTCHRS ( 17) : POKENP-1 , &HCD: POK 
ENP,&H33 

1510 IF LEFT$(I$,16) <>P1$ THEN 1520 

1515M=MR:AD$=A1$:CT$=C1$:SV=CVI(V1$) :M2=CVI(M1$) : UA$=A2 $ : HI-CVI ( 
UHS):HM=HI:I L1$="N"THEN POKE PF,0 ELSE POKE PF,255 
1516 GOTO1630 

1520 NEXT: PRINT" INVALID LOGIN" : GOTO1420 
1530 IF LEFT$(PW$,8) ="PASSWORD" THEN 1600 
1540 FOR TR=1 TO 3 

1550 PRINT"System password? " ; :GOSUB130 : PRINTCHR$( 17) 
1560 IF LEFT$(I$,16) =PW$ THEN 1600 
1570 NEXT:PRINT"Invalid login" 

1580 PRlNT"Board closed to unauthorized persons. " :PRINT"Please h 
ang up." 

1590 GOSUB130:GOTO1590 

1600 GOSUB240:GOSUB1090:IF N5$="" THEN 1420 ELSE NA$=N5$ 
1610 SV=CV:POKE VW,SV: UA$=CA$ : NM=NM+1 :GOSUB920 :M=NM : IF M>1 THENE 
N=M:GOSUB870 

1620 MR=M:GOSUB570:CLOSE 

1630 IF (WZ) OR (INSTR(UA$,"*") >0) THEN UA$="01234567 89ABCDE*" : S 
Y=-l 
1640 SE$=UA$:Q$="ALL"+CHR$(128) : PRlNT"One momentplease . . .":PRINT 

Listing continued 



Mac 
Inker 

Re-ink any fabric ribbon 
AUTOMATICALLY for less 
than 5$. Extremely simple 
operation with built-in 
electric motor. We have a 
MAC INKER for any printer: 
cartridge/spool / harmonica / 
zip pack. Lubricant ink safe 
for dot matrix printheads. 
Multicolored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 

*54 « + 




Mac 
Switch 

Mac Switch lets you share 

your computer with any two 

peripherals (serial or 

parallel). Ideal for word 

processors— never type an 

address twice. Ask us for 

brochure with tips on how to 

share two peripherals (or two 

computers) with MAC 

SWITCH. Total satisfaction 01 

full refund. 

$99.00 




— 



Order toll free 1-800-547-3303 

Computer 



Friends 

6416 SW Canyon Court 

Suite #10 

Portland, Oregon 97221 

(503) 297-2321 

Dealer Inquiries welcome 



80 Micro, March 1985 • 91 



Circle 383 on Reader Service card. 




BBS EXPRESS 



THE " BEST " SOFTWARE IS GUARANTEED ! 
TRY IT and LIKE IT, or SET a REFUND 

Tht aachlna codt L-W 1j "A" rated by 
AUanbach'a "SOFTWARE REPORTS " f or: 

EASY USE, DOCUMENTATION, FEATURES 

- SCREEN DISPLAYED Mil II PRINTING. 

- Utt ANY PRINTER * GRAPHICS options. 

- FULL PRINTING CONTROLS: Coluant, 
lines, piges, FORM LETTERS/LABELS, 
LEGAL paptr LINE NUMBER S*NASSNA I LER. 

- FULL TYPIN6 CONTROLS: Copy/Nove/ 
C«nter/lnttrt/D*lett--Charactars/ 
¥ords/Llna*/Bloekj/Coluan«/ F i Los. 

- *0VER 50 ASCII Coda/PHRASE typing 
insert ioni itt up/ltorid by user j. 

- *WARM START and prt-*at PA6E SAVE. 

- Split tcraan typing Una, itt old 
and ni« version • cancel changes. 

- Unaod1f1tdNI t«a/pr1nt Lower casa. 

- INTERGRATER bookkaaplng ADD / SUB. 

- EASY ARROW KEYS CURSER lovtt: Up/ 
Down/Right/Laf t St ar t / End-Li nei/ 
eoluans/page and WORD WRAP control. 

- ONE NODE: Typa/Ed1t/Dalata without 
switching aiodes-NO TRAINING PERIOD. 



WE PAY TAX/USA SHIPPING. Try a L-W 
for 3 aonths. Like 1t or return 1t for 
a refund, less our S/H costs of S3. SO. 

Nodels I, III/IV: TAPE UK S23.99 
DISK 32K (• Eitra Features > 837.99 

VERB AT IN SS/DD (BOX of10d1»kt> 819.99 



ASTRO-STAR ENTERPRISES 

S905 Stone HUl Dr. Information: 
Rocklln, CA 95677 (916) 624-3709 

Ordarai 1-100-622-4070 Eat. AS 
1n IL 1-800-942-7317 Ext. AS 



1 



Circle 539 on Reader Service card. 



TRS-80 



DISCOUNT 




Computers 

at Guaranteed 

Low Prices* 



ATONCP/MFORII. 12. 16 



EPSON & NEC PRINTERS 



DYSAN DISKETTES 



HAYES MODEMS 

Desert Sound, Inc. 

of California 

1-800-835-5247 

Factory Authorized Dealer 

TRS-80 ia a Rag. Trademark of Tandy Corp. 

•Call for FREE CATALOG 
and Price Guarantee 

Calif. Res. Call 619-244-6883 



Listing continued 



"Checking your mailbox. " :GOSUB220:SF=-1:MN=HI+1 :GOSUB430 

1650 FOR RN=S TO SN:PRINT" . " ; :GET1 ,RN:L=20 : IF (ASC(S2$) AND 16)= 

16 THEN1670 

1656 IF (L>0) AND (MID$(T1$,L,1) =" ")THEN L=L-l:GOTO 1656 

1660 IF (SY AND (LEFT$(Tl$,5) ="SYSOP") ) OR ( LEFT$ (T1$,L) =NA$) OR 

(LEFT$(T1$,LEN(Q$))=Q$) THENGOSUB350 : IFRD THEN PRINT: PM=PM+1 :M (P 

M)*RN:GOSUB4720 

1670 NEXT:CLOSE:SF=0:IF PM>0 THEN PRINT"These message (s) ": PRINT" 

havebeen marked for retrieval" :PRINT"Using the RM command. " :PRIN 

T 

1680 PRINT'You are caller";SC:PRINT"SYSTEM CONTAINS" ;SN; "MESSAGE 

S FROM"SL"TO"SH 

16 90 IF M>0 THEN PRINT"HIGH MESSAGE RETRIEVED: ";HI 
1700 POKE VW,SV:IF UL$="N" THEN POKE PF,0 

1710 F2$="BULLETIN":GOSUB4850 

1720 SF=0:TL=-1:NC=0: CLOSE 

1730 PRINT:PRINT"Command (? for HELP): " ; :GOSUB130:PRINTCHR$( 17) 

:IF CT-0THEN 17 30 

1740 CM$=LEFT$(I$,CT) :GOSUB300 

17 50ONINSTR("?RSLECXMUHBT",C$)GOTO1900,2 86 5,2 850,32 80,2630,17 90, 
3710,1810,180,17 80,177 4,1777 

1760 PRINT"? - Prints this list": PRINT"R - Read Messages" :PRINT" 
L -Leave a message":PRINT"S - Scan the messages" :PRINT"E - Exit 
theBBS":PRINT"C - Change Member's Record" : PRINT"X - Database" 
1770 PRINT"M - Scroll membership log":PRINT"U - Scroll user log" 
:PRINT"H- View HELP f ile":PRINT"B - Set/Reset Brief Mode":PRINT" 
(No stopbetween messages) " :PRINT"T - Talk to SYSOP" :GOTO1720 
1774 BM=(BM=0) :PRINT"Brief mode ";:IF BM THEN PRINT"ON"ELSEPRINT 
"OFF" 

1776 GOTO1720 

1777 IFNOTCHTHENPRINT"SYSOP not available" :GOTO1720 

177 8 PRINT"PagingSYSOP. " ; : FORX = 1TO10 : PRINT" . " ; : FORT=1TO50 : IFPEEK 

(SH387F) =0THENNEXTT,X:PRIT:PRINT"SYSOP doesn't answer. Sorry":G 

OTO1720ELSEPRINT"Control-P toexit CHAT" 

1779 GOSUB130:PRINTCHR$(17) ; : IFINSTR( I$,CHR$( 16) ) =0THEN1779ELSE1 

720 

17 80 F2$="HELP":GOSUB4 850:GOTO17 20 

1790 PRINT"Change Member's Record" :GOSUB240 

1800 MR=M:GOSUB570:GOTO1720 

1810 GOSUB240:PRINT"Control-P to stop" 

1820 FOR X=l TO NM:GET 2,X 

1830 PRINTN1$:PRINTC1$: PRINT 

1840 IF INKEY$OCHR$(16) THEN NEXT 

1850 PRINT"Job done":CLOSE:GOTO1720 

I860 GOSUB280:IF LOF(3)=0 THEN 1720 ELSEPRINT"Control-P to Stop" 

:FORX=LOF(3) TO 1 STEP-1:GET 3 ,X: PRINTUl$: PRINT"IN : ";U2S:PRINT" 

OUT: ";U3$: PRINT" ELAPSED: ";U4$: PRINT 

1870 IF INKEY$=CHR$(16) THEN X-l 

1880 NEXT 

1890 GOTO1720 

1900 IF NOT SY THEN 1720 

1910 IFCM$<>""THEN 1930 

1920 CLOSE:PRINT"SYSOP Commands (?=HELP): " ; :GOSUB130 : PRINTCHRS ( 

17):IFCT=0 THEN 1920 ELSE CM$ = LEFT$ ( I $ ,CT) 

1930 GOSUB300 

1940ONINSTR("MACDELPSN$BFK",C$)GOTO2030,2100,2200,2130,17 20,2240 

,2570,2310,210,1980,1990,197 5,1976 

1950 PRINT"? - Prints this list" :PRINT"A - Add New Member ": PRINT 

"C -Change User Record" :PRINT"D - Delete User Record" :PRINT"K - 

Kill ERRORand USER logs" 

1960 PRINT"E - Exit Sysop Function" : PRINT"L - Print MailingLabel 

s":PRINT"N - Set Section Names" : PRINT'S - Examine/Change SystemD 

efaults" 

1970 PRINT"P - Purge Retrieved message" :PRINT"M - Membershiplog" 

:PRINT"B - Write Bulletin" : PRINT"F - Rewrite Membership FilePoin 

ters":GOTO1920 

197 5GOSUB240:E=NM:GOSUB5270:NM=NV:GOSUB190:GET3,1:LSETNM$=MKI$(N 

M) :PUT3,1:CLSE:GOTO1920 

1976 K ILL" ERROR/BBS "+SD$: OPEN "0",1," ERROR/BBS "+SDS: PR INT#l,"ERRO 

RLOG": CLOSE :KILL"USER/BBS"+SD$:GOTOl 900 

1980 STOP:GOTO 1720 

1 990 B=-l : GOSUB33 80 : B=0 : OPEN"0" , 3 , "BULLETIN/BBS " +DD$ 

2000 FOR Z=lTOLN 

2010 IF MG(Z)>0 THEN PRINTS3 , LEFT$ (MG$ ( Z) ,MG ( Z) ) ; 

2020 NEXT Z:CLOSE 3:GOTO1920 

2030 GOSUB1230 

2040 GOSUB240 

2050 FOR MR=1 TO NM:GET2,MR 

2060 PRINTN1S:PRINTA1$:PRINTC1$: PRINT" PASSWORD: "; PI $: PRINT" Acce 

ss:";A2$:PRINT"No. of Calls: " ;CVI (C2$) :PRINT"Number of Messages 

:";CVI(M1$) :PRINT 

2070 IF PR THEN LPRINTNl $, "Password : "; Pl$:LPRINTAl$, "Access: " ;A 

2$:LPRINTCl$,"No. of Calls: "CVI (C2S) :LPRINT"Video: " ;CVI (Vl$) , , " 

Number of Messages: " ;CVI (Ml$) :LPRINT"line feeds: " ;Ll$:LPRINT" " 

2080 IF INKEY$OCHR$(16) THEN NEXT 



Listing continued 



92 • 80 Micro, March 1985 



BBS EXPRESS 



Listing continued 



2090 PRINT"Job done": CLOSE :G0T01 920 

2100 PRINT"Add new member selected" :GOSUB240 :GOSUB1090 : IF N5$="" 

THEN1900 

2110 NM=NM+1:GOSUB920:MR=NM:IF MR>1 THEN EN=MR:GOSUB870 

2120 GOSUB570:CLOSE:GOTO1920 

2130 CLS:PRINTCHR$(12) "Delete User Record" :GOSUB240 

2140 PRINT"User Name: " > :GOSUB130:PRINTCHR$U7) : IF CT>B THEN 219 

ELSELSET CK$=I$ 

2150 EN=NM:GOSUB940:IF ER THEN PRINT"No such record" : GOTO2140 

2160 PRINT"Deleting " ;Nl$:PRINT"Conf irm (y/n)? "; :GOSUB130 : PRINT 

CHR$(17) 

2170 IF ASC(I$)=89 THEN DF=-1:LSET P1$=CHR$ ( 0) : PUT 2, MR 

2180 GOTO2140 

2190 IF DF THEN E=NM:GOSUB5270 : NM=NV: GOSUB1 90 -.GET 3 , 1 : LSETNM$=MK 

I$(NM) :PUT 3,1:DF=0 

2195 GOTO1920 

2200 CLS:PRINTCHR$(12) "Change User Record" :GOSUB240 

2210 PRINT"User Name: " ; :GOSUB130:PRINTCHR$U7) : IF CT=0 THEN 192 

ELSELSET CK$=lS 

2220 EN=NM:GOSUB940:IF ER THEN PRINT'No such record" :GOTO2210 

2230 GOSUB570:GOTO1920 

2240 CLS:PRINTCHRS(12) , -"Mailing Labels." 

2250 GOSUB1230:IF NOT PR THEN PRINT"PRINTER NOT READY !!" :G0T01 92 



2260 GOSUB240 

2270 FOR MR=1T0NM:GET2,MR 

2280 LPRINT N1S:LPRINT A1S:LPRIN"T C1$:LPRINT 



:LPRIN": 



: LPRINT 



2290 IF INKEY$<>CHR$(16) THEN NEXT 

2300 PRINT"Job done":CLOSE:GOTO1920 

2310 CLS:PRINTCHR$(12) :GOSUB190 

2320 GET 3,1:PRINT"1. Video width: " ;CVI (SVS) : PRINT"2 . Line feed 

s:";SF$:PRINT"3. Default Access: " ;SA$: PRINT"4 . Maximum messages 

: ";CVI(SM§) :PRINT"5. System Password: ";SP$ 

2330 PRINT"6. Hard copy ";:IF PR THEN PRlNT"On" ELSE PRINT"Off" 

2340 PRINT'Tap ENTER to record" : PRINT'TYPE A NUMBER TO ALTER" 

2350 GOSUB130:PRINTCHR$(17) : IF CT=0 THEN CLOSE : GOTOl 910 

2360 IF VAL(I$)<1 OR VAL(I$)>6 THEN 2320 

2370 ON VAL(IS) GOTO2390 ,2410 , 2430 , 2450 , 2470 , 2490 

23 80 PUT 3,1:GOTO2320 

2390 PRINT"VIDEO WIDTH: " ; :GOSUB130 : PRINTCHRS ( 17) : IF (CT>0) AND( 
VAL(I$)>0) AND (VAL(I$)<81)THEN LSET SV$=MKT S ( VAL ( I $) ) 
240 GOTO23 80 

2410 IF PEEK(PF)=255 THEN POKE PF,0:LSET SF$="N" ELSE POKE PF,25 
5:LSETSF$="Y" 
2420 GOTO23 80 

2430 PRINT"SYSTEM ACCESS: " ; :GOSUB130 : PRINTCHR$ ( 17 ) : IF CT>0THEN 
LSETSA$=I$ 
2440 GOTO23e0 

2450 PRINT"MAXIMUM MESSAGES: " ; :GOSUB130 : PRINTCHRS ( 17) : IF (CT>0) 
AND(VALU$) >10) AND (VAL(I$)<100) THEN LSF.T SMS=MKI $ f. VAL ( 1$) ) :M 
X=VAL(I$) 
2460 GOTO23 80 

2470 PRINT"System password: " ; :GOSUB130:PRINTCHR$ ( 17) : IF CT>0 TH 
EN LSETSP$=I$ 

24 80 GOTO23 80 

2490 IF PR THEN PR=0 ELSE PR=-1 

2 500 GOTO23 80 

2510 PRINT"Tap ENTER to leave unchanged" : PRINT"or type new heade 

r .":TL=0 

2520 FOR X=l TO 15 : PRINTMIDS ( "01 234567 89ABCDE" , X , 1 ) ; " ";S$(X) 

2530 GOSUB130:PRINTCHR$(17) :IF CT=0 THEN 2560 

2540 IF ASC(I$)=16 THEN X=15 :GOTO2560 

2550 LSET S$(X)=I$ 

2560 NEXT:GOSUB190:GOSUB210:FORX=1 TO 15:LSET F$ ( X) =S$ (X) : NEXT: P 

UT3,2:CLOSE:TL=-l:GOTOl920 

2570 GOSUB220 

2580 PRINT"Ready to PURGE recovered messages. ": PRINT"Conf irm(y/n 

) ?"; :GOSUB130:PRINTCHR$(17) :IF ASC(I$)<>89 THEN 1900 

2590 PRINT"WORKING"; : FOR RN=1 TO SN:GET 1,RN 

2600 IF (ASC(S2$) AND 16) =16 THEN MID$ (MN$,2*RN-1 , 2) =MKI $ ( -FNP( 

RN,MN$)) 

2610 PRINT"."? 

2620 NEXT:PRINT:CLOSE:GOTO1920 

2630 CLOSE:PRINTCHR$(17) ; "Thanks for calling The Towne Crier. ":P 

RINT"Docall again. ".-PRINT" Arrival: " ; IN$:OT$=TIME$:PRINT"Leaving 

:";OT$:TM$=OT$:GOSUB 1235 

2640 E!=T!-IN!:Z=INT(E!/3600) : El =E!-Z*3600 : Y=INT( EI/60) :X=CINT(E 

!-Y*60) 

2650 AS=FN FL$(2):B$=FN FLS(Y):C$=FN FL$(X) 

2660 IF LEN(A$)<2 THEN A$="0"+A$:GOTO2660 

2670 IF LEN(B$)<2 THEN B$=" 0" +B$:GOTO2670 

2680 IF LEN(C$)<2 THEN C$="0"+CS:GOTO2680 

2690 PRINT"Elapsed time " ; A$; " -." ;B$? " : " ;C$ 

2700 PRINT"Please hang up now." 

2710 IF M>0 THEN GOSUB240 :GET2 ,M:LSET UH$=MKI$(HI) :LSETC2$=MKI$ ( 

Listing continued 



Circle 355 on Reader Service card. 



LARGE CAPACITY 

ACCOUNTING PROGRAMS 

FOR TRS-80 1, 3,4 8 4P, LNW LOBO 



M. NEED JUST 2 DRIVES M. 

FOR CAPACITY BELOW 

ACCTS RECEIVABLE Si 50.00 

5000* ACCOUNTS 1 5000+TRANSACTIONS 
BALANCE FORWARD99 TRANSACT CODES 
30 60 90 1 20 AGED ST ATFMF NTS SHOW 
DA TEiNV#DE SCRIP /AMT/4 AGEING 
SELECTIVE FINANCE CHARGES 4 RATES 
FAST ENTRY POSTING W / AUOIT REPORT 
SUB ■ ACCTS %CREDIT LIMIT DATE OF 
LAST PAYMENT LABELS 
ADD $50 00 FOR INVOICING MOOULE 
OTHER OPTIONS AVAILABLE CALL 

ACCTS PAYABLE $50.00 

DERIVtU FROM OUR A.R WRlTESCHECKS 

GENERAL LEDGER $1 50.00 

40O* ACCTS 5000»TRANSACTIONS/MONTH 
BEST LOOKING FINANCIAL STATEMENTS 
DEPARTMENTAL P « L lUP TO 91 
STATEMENT OF CHANGES 
SUB-TOTALS WHERE YOU WANT 
FAST FLEXIBLE POSTING INPUT 
PERCENTAGE P 4 L 



DEMO AVAILABLE $20 00 EACH 
APPLIFS TOWARDS PURCHASF 



COMBINATION SPECIALS 

1 A/R 4 G/L FOR $20000 

2 A/R A/P « G/L FOR $22500 



> 


HARD DISK 


VERSION SLIGHTLY 


MORE 




l/i 

■< 


visa HDP. MC 

2366 Lincoln O'Oxille CA 95965 

916 533 5992 

MON-FRl BAM TO ?PM 

ADO30OS4H ADO 300 COO 



Circle 123 on Reader Service card. 



LNW SERVICE 

QUALITY REPAIRS ON ALL 

LNW FACTORY ASSEMBLED 

PRODUCTS INCLUDING: 

• TEAM AND ALL LNW80 MODEL 
COMPUTERS 

• SYSTEM EXPANSION II 

• LNDOUBLER AND LNDOUBLER 5 8 

• LNW DISK DRIVES 

COMPUTER UPGRADES: 

• CP/M 2.2 

• HARDWARE 80x24 

• MODEL 4 UPGRADE 

• TEAM UPGRADE 

OTHER PRODUCTS AVAILABLE: 

• HARD TO FIND LNW PARTS 

• LNW SOFTWARE 

Editor Note 

This space open for specials! 

WILSON TECHNICAL SERVICE 



8:00 am'5:00pm(PST1 
VOICE 714-531-8136 



AFTER 5:00 pm(PST) 

DATA 714-531-8136 

300 1200 BAUD 



80 Micro, March 1985 • 93 



Circle 368 on Reader Service card. 



Circle 213 on Reader Service card. 



Before Ms happens, 
adl sum ARE 



800/848-3469 

(In Ohio, call 
614/262-0559) 

Protects your computer 
against theft, fire, power 
surges and other accidental 
losses. Insures your entire 
system for as little as $55 a 
year — depending on the value of 
your hardware, software, and 
media. Full replacement after a 
low $50 deductible. 

We're SAFEWARE? M the first name 
in computer insurance. Tens of 
thousands of satisfied customers. Call 
toll-free for rates or immediate 
coverage. 

SAFEWARE, The Insurance .Agency Inc. 
RO. Box 02211 
2929 N. High Street 
Columbus, Ohio 43202 



r— "I- 





Circle 285 on Reader Service card. 




INCREASE 

KEYBOARD 

SPEED! 

Tandy gave HyperTyper R a 

• • * • rating for both 
TRS-80 and Tandy 2000 

for only $29.95 

• HyperTyper® is a complete software program 
designed to help you make the most of your computer. 

• HyperTyper* is under your control— you go at your 
own speed; not at the program's demand. 

• HyperTyper* uses real words, sentences and 
paragraphs, not nonsense syllables. 

• Although the text is light-hearted and fun, HyperTyper* 
is not a game, but a serious, powerful teaching tool. 

• This is a flexible, easy-to-leam and easy-to-use 
program that can aid everyone from novices to 
advanced typists. 

SEE YOUR DEALER NOW 
STANDARD SOFTWARE 

Suite 1600— 121 S.W. Salmon St. 
Portland, Oregon 97204 
(503) 227-0008 
TRS-80 & Tandy 2000 registered trademarks of Tandy. 



UNINTERRUPTIBLE POWER SYSTEMS 
BY SUN RESEARCH 



For complete protection from Blackout, Brownout, 
Surge and Spike specify a MAYDAY Uninterruptible 
Power System by SUN RESEARCH. 

Eliminate costly downtime and lost data caused by 
those momentary power losses. Protect your software 
and hardware from damage caused by sudden drops 
in line voltage. Isolate your computer system com- 
pletely from the AC wall circuit with a MAYDAY 
continuous (On-Line) Uninterruptible Power System. 
Give all your components clean 60Hz sine wave 
power for efficient operation at a price you can afford. 

MAYDAY T " UNINTERRUPTIBLE POWER SYSTEMS 
BY SUN RESEARCH 

Available in 1 50, 300, 600, 1 000 and 1 500 VA Capacities. 

Call 1 -603-859-71 10 
MAYDAY™ Division 



r\*fi> SUN RESEARCH, INC. 

Vfl^gfe Old Bay Road 

% &£> Box 210 

/'P\ New Durham, N.H. 03855 




94 • 80 Micro, March 1985 



Circle 136 on Reader Service card. 



BBS EXPRESS 



Listing continued 



CVI(C2S) +1) :LSET M1$=MKI$(M2) : PUT 2,M:CLOSE 

2720 GOSUB280:LSET U1$*NA$: LSET U2$=IN$:LSET U3$=OT$:LSETU4$*A$+ 

" : "+BS+" : "+C$:PUT 3,LOF(3) +1: CLOSE 

2850 CLS :PRINTCHR$( 12) ; "SCANNING MESSAGE BOARD" 

2860 PRINT"Enter a control-C to stop.":SF=-l 

2865 IF SN=0 THEN PRINT"No messages available" :GOTO 1720 

2870 IFCM$O""THEN2890 

2880 PRINT"SUBCOMMAND (? for HELP): " ; :GOSUB130 : PRINTCHRS ( 17) : IF 

CT=0THEN 1720 ELSE CM$=LEFT$ ( I $ ,CT) 
2890 GOSUB300:D$=C$:IF D$="M" THEN 2970 
2900 IF INSTR( "FRISMN",D$)=0 THEN D$="?" 

2910 IF D$="?" THEN PRINT"? - Prints this list":PRINT"F -Forward 
":PRINT"R - Reverse" 

2920 IF D$="?" THEN PRINT"I - Individual" : PRINT'S - Selected":PR 
INT"M -Marked":PRINT"N - New Messages" :GOTO2880 
2930 IF D$="N" THEN MN=HM+1 :D$="F" :GOTO2970 
2940 MN=VAHCM$) :IF MN>& THEN 2970 

2950 PRINT"System contains messages"SL"to"SH: IF D$="I" THEN PRIN 
T"Readwhich message?"; ELSE PRINT"Read starting with which messa 
ge?" 

2960 GOSUB130:PRINTCHR$(17) :MN=VAL(I$) 

2970 SE$=UA$:GOSUB220:IF D$<>"I" AND D$<>"M" THEN GOSUB800 
2980 ON INSTR("FRISM",D$) GOTO2990 , 3040 , 3090 , 3130 , 3220 
2990 E=SN:GOSUB430 

3000 FOR RN=S TO E:GET 1 ,RN :GOSUB350 : IF NOT RD THEN PRINT"."; :GO 
TO3020 

3010 PRINT:GOSUB4720:GOSUB440:IF N>HI THEN HI=N 
3020 IF INKEY§=CHR$(3) THEN RN=E 
3030 NEXT:GOTO1720 
3040 E=1:GOSUB430 

3050 FOR RN=S TO E STEP-1:GET 1 ,RN:GOSUB350 : IF NOT RD THENPRINT" 
."; :GOTO3070 

3060 PRINT:GOSUB4720:GOSUB440:IF N>HI THEN HI«=N 
3070 IF INKEY$=CHR$(3) THEN RN=E 
3080 NEXT:GOTO1720 

3090 GOSUB430:IF FN P(S,MN$)OMN THEN PRINT"NO SUCH MESSAGE":GOT 
01720 

3100 RN=S:GET 1 ,RN:GOSUB350 

3110 IF RD THEN GOSUB4720 :GOSUB440 : IF N>HI THEN HI=N 
3120 GOTO1720 
3130 PRINT'Search field: (T,F,S) "; :GOSUB130:PRINTCHR$(J7) : IF CT-0 

THEN1720 ELSE C$="F" 
3140 SF$=LEFTS(I$,1) :IF INSTR( "TFS" ,SF$) =0 THEN 3130 
3150 PRINT'Search f or : "; :GOSUB130:PRINTCHR$( 17) :SS$=LEFT$( I $,CT) 
: PRINT" Searching "; 
3160 E=SN:GOSUB430 

3170 FOR RN=S TO E:GET 1 ,RN:GOSUB350 : IF NOT RD THEN PRINT"."; :GO 
TO3200 

3180 PRINT:GOSUB4720:GOSUB440:IF N>HI THEN HI=N 
3190 PRINT"."; 

3200 IF INKEY$=CHRS(3) THEN RN=E 
3210 NEXT:SF$="":SS?="":GOTO1720 

3220 E=PM : IF E=0 THEN PRINT"No Marked Messages" :GOTO1720 
3230 FOR X=l TO E: RN=M(X) -.GET 1 , RN-.GOSUB350 
3240 GOSUB4720:GOSUB440:IF N>HI THEN HI=N 
3250 IF LEFT$(I$,1)="T" THEN X=E 
3260 IF INKEY$=CHR$(3) THEN X=E 
3270 NEXT:GOTO17 20 

3305 IF (TT$="ALL") AND (SY) THEN TT$=TT$+CHR$ ( 1 28) 
5190 IF ERL=4450 THEN PRINT"File not found" :CLOSE: RESUME 4430 
5200 IF ERL=4450 THEN PRINT"No such f il e" :CLOSE : RESUME 4430 




FOREIGN COMPUTER STORES/MAGAZINE DEALERS 



You have a large technical audience that speaks English and Ls in need of 
the kind of microcomputer information that CW Communications/Peter- 
borough provides. 

Provide your audience with the magazines they need and make money at 
the same time. For details on selling 80 Micro, inCider, HOT CoCo, and 
RUN contact: 

SANDRA JOSEPH WORLD WIDE MEDIA 

386 PARK AVE. SOUTH NEW YORK, N.Y. 10016 

PHONE-(212) 686-1520 TELEX-620430 




Watch your TRS-80 Mode! I/II1 
outperform the IBM PC, thanks tc 
Southern Software 1 
Think your TRS-80's been left 
behind? Think twice! Fact is, the 
Model I/III can run Basic programs 
faster than IBM PC or Tandy 2000 
with Southern Software's 
ACCEL3/4 Basic Compiler. 



Example : Benchmark in May 80-Micro 
IBM-PC 77 ■• n :, 

Tir.dy 2000 - •■ li 

ACCEL3/4 on Mod*.; I 20 seconds 

ACCEL3/4 on Mo i~: ::: .'• •• :-. i 



Program changes are rarely (if 
ever) reguired because 
ACCEL3/4 accepts the whole 
Basic language. Low code growth 
(complies 25K+ programs), uses 
any DOS, no royalties on compi.ed 
code. Your Model 1/111 beats out 
the PC, with ACCEL3/4. *99.95 

+*2s/h 

Writing Basic programs? Thir.k 
twice ! No EDIT on the PC . Southern 
Software's EDIT is on-line with 
30+ full -screen commands. iOOO 
better Basic programming ' *40 
+* 1.50 s/h 

Database management ' Thir.k 
twice! Southern Software's rela- 
tional ENBASE has a unigue set- 
theoretic design that's fundamen- 
tally more advanced, yet costs 
hundreds less 1 « 140-P3 s/h 

Machine-language program 
development? Think twice! 

Southern Software's SBE mid- 
level language compiler works en 
IBM PC and compatibles (includ- 
ing Tandy 2000; ! SBE/TRS. MOO 
+ $ 3 s/h, SBE/PC: «160+ i 3 s/h 

Better-than-PC performance on 
your Model I/III! Just think . . . 

CA add 656 

s£j (415) 681-9371 3 




80 Micro, March 1985 • 95 



BASIC TAKES / by Richard Ramella 



Make Your Programs 
Go in Circles 



A Basic loop is a series of pro- 
gram lines that execute in a 
closed cycle a specified number of 
times before the program continues. 
This month I'll demonstrate how to 
use loops to create a pause in a pro- 
gram; construct a counter; and enter, 
set, and search for values in your Basic 
programs. 

Creating Loops 

To write a Basic loop, you can use 
For... Next, GOTO, and If... Then 
statements. Here's an example: 

100 PRINT "Why are you looking at this?" 
110 GOTO 100 

This program creates an endless loop; 
that is, the GOTO statement makes 
the program repeat endlessly. People 
sometimes create endless loops as 
practical jokes, to vex users who don't 
know how to exit a program. 

If. . .Then loops let you bail out of 
a loop and continue the program once 
the program meets the conditions of 
the If . . .Then test. More on these 
later. 

For. . .Next loops make a program 
segment repeat a set number of times. 
Two common applications of For. . . 
Next loops are timing and counting 
functions. 

Timing Loops 

The simplest kind of loop is a timer: 

100 TOR X = 1 TO 500: NEXT X 

The Model III executes this timer loop 
in about one second. Timer loops give 
a program rhythm, make a program 
wait for user response, or display ma- 
terial for a set amount of time before 
continuing. 

Loops can count things other than 
time. For example: 

100 CLSrFOR X = 1TO20: PRINTX;: NEXTX: 
END 

This line counts to 20. A loop can 
count almost indefinitely: 

100 CLS: FOR X = 1T04.25353E + 37: 
PRINTX: NEXTX 




If you run the listing above, you'll 
wait to the crack of doom (figuratively 
speaking) for it to finish. Press the 
break key to stop it . 

Counting in Step 

Basic counts a loop by increments, 
or steps, greater than or less than 1. 
Programs can count by whole num- 
bers: 

100 FOR X = lTO1000 STEP10: PRINTX;: 
NEXTX 

or by fractions: 

100 CLS: FOR X = 1TO10 STEP .5: PRINTX;: 
NEXTX 

Loops can also count backward by 
whole or fractional steps: 

100 CLS: FOR X = 100 TO 1 STEP -1: 
PRINTX;: NEXTX 

Here are a few rules to remember: 
Loops counting forward can do so in 
increments of 1 without using the 
Step command. Step is necessary 
when counting forward by fractions 
or by increments greater than 1. 
Counting backwards requires using 
Step with subtraction, even if you're 
decrementing only by 1 . 



You can use variables within loops, 
but you must define the variables be- 
fore the loop: 

100 CLS: INPUT "Start number";A 
DO INPUT "Finish number" ;B 
120 INPUT "Step number";C 
130FORX = ATOBSTEPC: PRINTX;: 

NEXTX 

In this program, you enter a starting 
number, ending number, and a step 
number; the program counts accord- 
ing to your input. 

Try running this program several 
times, using different numbers. If you 
enter 100, 200 and 3, the loop counts 
to 199. Basic counts as close to the 
ending number as possible, given the 
step number. 

Input 200, 100, and -2 to count 
backward by twos from 200 to 100. 
Enter 200, 100, and 2 and the program 
won't go far. Can you see why? 

Reading Arrays 

For... Next loops are also useful 
for reading array values: 
100 REM • My Grades 
110 DATA 79,64,81,72.51 
120 CLS: DIM G(5): FOR X = 1 TO 5: 
READ G(X): NEXT X 



96-80 Micro, March 1985 



Circle 290 on Reader Service card. 



BASIC TAKES 



130 PRINT "I had five calculus tests." 

140 INPUT "For which do you wish to 

see my grade";X 
150 X = INT(X): IF X<1 OR X>5 

THEN CLS: GOTO 130 
160 PRINT "I GOT A SCORE OF "G(X)" 

on test "X: GOTO 130: END 

The loop in My Grades reads the data 
values in line 120 and displays them in 
response to your input. 

Without using data lines, you can 
set sequential and random values with 
a loop. Here's an example of setting 
values sequentially: 

100 CLS: DIM A(200): FOR X = 23T069*2 
STEP 69*2/3: A(X) = X: PRINT A(X);: 
NEXT 

This line sets random values: 

100 DIM A(20): FOR X = 1TO20: A(X) = 
RND(0): PRINT A(X);:NEXTX 

Nested Loops 

In all the above examples, the loops 
end with a Next X statement. In single 
loops, you can end loops with Next 
alone; Basic knows which loop vari- 
able is at work. 

In some programs, however, hun- 
dreds of lines can separate For and 
Next statements. 1 suggest including a 
variable with Next to keep program 
flow clear. The following program, 
Nested Loops, shows how confusion 
can occur. 

100 REM *Nested Loop 

110 CLS 

120 FOR A=l TO 3 

130 FOR B=l TO 3 

140 PRINT A;B "/"; 

150 NEXT B 

160 NEXT A 

Loop A (lines 120-160) repeats three 
times; loop B (lines 130-150) is inside 
loop A and repeats three times for 
every execution of loop A. The result- 
ing number sequence should make this 
clear. 
Change the last two lines to read: 

150 NEXT A 
160 NEXT B 

and you'll get a next-without-a-for er- 
ror (NF). You must include the B loop 
within the A loop for the program to 
run properly. 

Here's a legal change: Delete line 
160 and type in 150 NEXT B,A. This 
saves a line. You can create numerous 
nested loops, and if program logic 
calls for it, you can end them all at 
once in one statement: NEXT 
X,H,J1,LZ. 



Best CP/M 



computers. 



Pickles & Trout CP/M is the product of over four years of 

experience with Radio Shack computers — and their users. 

Thousands of people use it with pleasure. So can you. 



IT'S FLEXIBLE 

With P&T CP/M 2, you can 
take advantage of every feature 
of your Mod 11/12/16. Choose 
from among the 2000 or more 
CP/M -80 programs now on 
the market. Use either Radio 
Shack or Corvus hard disk 
systems. And use Radio Shack 
or non-Radio Shacfc printers, 
plotters, modems, terminals and 
other peripherals. 

IT'S WELL-SUPPORTED 

The fully-indexed P&T manual 
is understandable and compre- 
hensive. And our experienced 
support staff is always available 
to help you. 



IT'S COMPACT AND 
POWERFUL 

P&T CP/M 2 packs a lot of 
power into as little as 8.5 
Kbytes of RAM. Its many 
unique features include a mas- 
ter diskette that automatically 
copies itself, an easily-used 
system MENU, 20 special 
utilities, programmable keys, 
a full-screen editor, a screen 
print function, and many extra 
programming tools. 

IT'S A BARGAIN 

The floppy disk version of P&T 
CP/M 2 is only $200. Hard disk 
versions are $250. And no hard- 
ware modifications are required. 



Order today or use the attached coupon to find out more about the 
best CP/M for your Mod H/12/16. 




State 



Zip 



or send us your business card. 

Pickles & Trout® 

P.O. Box 1206, Goleta, California 93116 
(805) 685-4641 



TRS-80" Radio Shack/Tandy Corporation; CP/M K Digital Research; 
Pickles & Trout " Pickles & Trout © 1984 Pickles & Trout 



I 
I 
I 

'80 I 



80 Micro, March 1985 • 97 



BASIC TAKES 



The listing below uses nested loops 
to produce a running clock. Variable 
HR represents hours, MN is minutes, 
SC is seconds, and T represents a 
timer of 1 to 300 for each second. 

100 REM * CLOCK 
1 10 CLS: FOR HR = TO 23 
120FORMN = 0TO59 
130FORSC = 0TO59 
140PRINT@40,HR": "MN": "SC; 

STRING$(5,32); 
150 FOR T=l TO 300 
160 NEXT T,SC,MN,HR: END 

To make the clock more accurate 
for your computer, experiment with 
line 150's For... Next time loop 
value, comparing the result against an 
actual timepiece. Note that Basic 
material interleaved in the program 
can slow such timer routines. 

Use nested loops to read or other- 
wise set values in a multidimensional 
array: 

100 REM * Array Setter 

110 DATA 3,6,7,1,3,6,9,9 

120 DIM A(2,2,2) 

130 FOR X= 1 TO 2: FOR Y= 1 TO 2: 

FORZ=1T0 2 
140 READ A(X,Y,Z): NEXT Z.Y.X: END 



Run this listing, then try different 
values in line 120. For example, try 
A(2,l,2) or A(l,l,l). The results ap- 
pear in line 1 10. Variables X, Y, and Z 
keep track of the variables. Using loops 
to read data values is a useful shortcut, 
especially when the program must read 
thousands of related array numbers. 

If. . .Then Loops 

Loops are of greatest value when 
used in an If . . .Then test. Insert the 
following line into the Qock listing: 

145 IF H>7 THEN PRINT "Time to wake 
up!": END 

The program might be more realistic if 
you rig a buzzer to sound when vari- 
able H attains a value of 8. 

The following program is a pseudo- 
game that demonstrates how you can 
use a loop to determine an event. 

100 REM • Whose Turn? 

110CLS:DIMA$(2) 

120A$(1)= "Sam":A$(2)= "Bob" 

130 FOR X = l TO 2 

140 PRINT A$(X), "It's your turn." 

150 INPUT "Type a guess and press 

enter" ;G 
160 NEXT X: GOTO 130: END 



Imaginatively using If. . .Then tests 
within loops will occur to you as you 
blend other Basic instructions into the 
concept. Here are some examples: 

IF Z = 12 THEN GOSUB 1000 

IF MID$(A$,X,3) = "MIN" THEN PRINT 

"You guessed": END 
IFC<100THENC=100 
IF G/2 = INT(G/2) THEN PRINT 

"Overload in sector ZED!" 

Summing Up 

A good working knowledge of 
loops can help you shorten your pro- 
grams. Loops provide a convenient 
way to pause, count, set values, or 
search for values. They also test 
true/false situations and provide a 
handy tool for working with other 
Basic statements, commands, and 
functions. 

Next month I'll discuss input/out- 
put functions and how information 
gets where it's going. ■ 

Contact Richard Ramella at 1493 
Mt. View Ave., Chico, CA 95926. 



Circle 227 on Reader Service card. 



NEW And IMPROVED 
CP/M-68K 

Treat your TRS-80 Model- 16 or Enhanced Model-ll or -12 to our new 
Version 1.2 CP/M-68K, now with: 

• Keyboard Ty pea head • Overlay loader 

• C compiler with standard • New utilities 
and IEEE floating point • 68000 assembler 

Option languages* — CBASIC-68K, PASCAL MT+, FORTRAN-77, 
PASCAL-68K, BASIC-68K 

Version 1.1 users; order a language and receive your version 1.2 up- 
grade FREE. Upgrade alone only $25. 



Trisoft 



4102 Avenue G 
Austin, Texas 78751 
(512) 453-2233 




"Requires 256 kbytes minimum except for BASIC-68K 




98 • 80 Micro, March 1985 



Circle 151 on Reader Service card 

CONVERT YOUR TRS-80 MODEL III OR 4 INTO A 

DEVELOPMENT SYSTEM 

Now you can develop Z 80 cased, Hand-alone devices sucn as games rooots. 
instruments and peripheral controllers, by using your TRS-80 as a development system 
The DEVELOPMATE plugs into tne expansion connector ot your TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT EMULATION apatxlities to your 
system 

Complete instructions and sample schematics are included to Help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs one TTL circuit tor clock and reset, a 2-80. an EPROM. and 
one peripheral interlace chip 

When tne In-Circuit-Emulation cable is plugged 
into the Z-80 socket ol your stand-alone system 
the system becomes a part ot your TRS-80: You 
can use the lull power ot your editor/assembler s 
debug and trace programs to cneck out both the 
hardware and the software Simple test loops 
can be used to check out the hardware, then the 
system program can be run to debug the logic ol 
your stand-alone device 

Since the program is kept m TRS-80 RAM. 
changes can be made Quickly and easily When 
your stand-alone device works as desired, you 
use the Deveiopmate s PROM PROGRAMMER 
to copy the program into a PROM With this 
PROM, and a Z-80 m place ol the emulation 
cable, your stand-alone device will work by itselt 

The DEVELOPMATE is extremely compact Both the PROM programmer and the 
■ Emulator are in one smaU plastic box only 3 2 •"> 4 A ime-plug mounted 
power supply is included The PROM programmer has a personality module which 
defines the voltages and connections ol the PROM so that future devices can be 
accommodated. However, the system come - iaT personality module 

which handles 2758.2508(8K) 2716,2S16(16K). 2532132K). as well as Ihe new elec- 
tncally alterable 2816 and 480161 16K EEPROMsi 

The COMPLETE DEVELOPMATE 83 with soltware. power supply, emulation 
cable. TRS-80 cable, and "universal" personality module, is ONLY $329! 

PM2 PERSONALITY MODULE lor 2732A EPROM ......... $15 

PM3 PERSONALITY MODULE lor 2764 EPROM. $15 

ORION INSTRUMENTS 
172 Otis Avenue Dept M, Woodside CA 94062 

1415)851-1172 

Masier Charge and Visa phone orders accepted 

California residents please add sales tax. 



Circle 45 on Reader Service card 



Circle 381 on Reader Service card. 




TRS-80 COMPUTERS 



MODEL IV 

64K 
2 DISKS RS 232 
MODEL IV P 
MODEL 1000 



MODEL 2000 $2160.00 
$959.00 w/HD 3360.00 

COLOR COMPUTER 

170.00 
350.00 
500.00 



959.00 
979.00 



64K 
MODEL 100 8K 
MODEL 100 24K 
Tandy 1200 HD IBM compatible $2250 
Terminal OT100 $699 
DISK DRIVES 
15MEGHD $2099.00 

COLOR DISK 275.00 

COLOR DISK 1 229.00 

PRINTERS 
OKIDATA92 $379.00 

GEMINI 10X 270.00 

GEMINI 15X 380.00 



DMP-110 
DMP-105 
DMP-500 
DMP-420 
DWP-510 



$ 299.00 DM P- 120 

159.00 DMP-430 

1064.00 DMP-2100 

680.00 DWP-210 

1149.00 CMP-2150 



$ 379.00 

699.00 

1598.00 

459.00 

3135.00 



Langley St. Clair Green and Amber Screen $89.00 

BODEX CORP. 

224 E. MAIN ST. 

MARLBORO, MASS. 01752 

Phone (617) 485-5115 or 481-1029 

TRS-80 Trademark of Tandy Corp. 



DISPLAYS CORRECT SPEL1 IN( ;s: 

If you don't know the correct spelling, 
KYV will look it up for you. and display 

the dictionary 

VERIFIES CORRECTIONS: If you 

think you know the correct spelling oi 
a word, EW will check it for you bi 
making the corrections. 

HYTHENATES AUTOMATICALLY: 

'Optional i. Inserts discretionary hy- 
phens throughout text. 

GRAMMAR & STYLE CHECKER 

i Optional). Identities 22 types of com- 
mon errors Makes suggested cor- 
rections with the stroke of a kev. 
Runs within EW. 

50,000 WORD DICTIONARY: Uses 
only 24 hues per word; add as many 
words as you wish. 

FAST CORRECTING: In as litt Is as 
i< I seconds, Electric Webster can return 

you to your Word Processing program, 
with your text fully corrected and on 
your screen. 

INTEGRATES: into 12 different word 
processing programs: WordStar. Spell- 
binder, Palantir. NewScript, Lazy 
Writer, SuperScripsit. Scripsit. Elec 
trie Pencil, Copy Art. Superscript. Zor- 
lof, and LeScript (specify) Begins 
proofing at the stroke of a key; returns 
you to word processing automatically 




Webster 



1 




"The Cadillac" 

of spelling checkers 
80 Microcomputing, 9/82 

VOTED #1: For the second straight year, 

Electric Webster was voted the » I spell 

ing checker in the 80 Micro Reader's 
Choice Award.- 1/88, 1 Mi 

"The most helpful program I've found is 
Electric Webster. After looking at nine 
proofreading programs. I've settled on 
Webster . . ." Creative Computing, 11/83 



- not published bv the original pafatahmol 

Wrlnlrr'i Dichnnan or tln-ir successors. 



ACCLAIMED: 

"Electric Webster is the best Just read 

any review in any magazine and I don't 
believe that you will find even one dis- 
agreement to that statement T7.Y7Y G, 
Cincinnati's I 'sers Group Mag., I 

Now there's a program called Electric- 
Webster that would let me write to 
Presidents and Kings and never feel em- 
barrassed Miss Mulberry would give 
Electric Webster an A • .and so will VOU " 
Computer ['scr. 1/84 

Performance "Excellent 1 *; Document ition 
"Good "; Base of Use "Excellent"; Error 

Handling "Excellent". Info World, s 82 
LOW PRICES: 

TRS-80 Electric Webster $ 89.95 

w Correcting Feature $M!> 95 

Hyphenation % 19.95 

Grammar & Style Checker $ -19.95 
CP M. PC DOS or MODEL 2000 

Electric Webster $209.95 

• with Correcting Feature 1 
Hyphenation Option Included" 

Grammar & Style Option Included* 

""Limited Time Only 



CORNUCOPIA 
SOFTWARE 



(415) 524-8098 
Post Office Box 6111 Albany. California 94706 




80 Micro, March 1985 • 99 



THE NEXT STEP / by Hardin Brothers 



Model 4 Owners 
Get Help 



1 think TRSDOS 6.2 is one of the 
best operating systems available for 
any personal computer. I've been us- 
ing it for several months and have 
found little to complain about and 
much to praise. 

TRSDOS 6.2's most powerful utili- 
ty is Help/CMD. Unlike the Model III 
help function, the Model 4's version is 
completely expandable: You can add 
as many help files as you like to any 
disk you want. If you're developing a 
program for others to use, or if you'd 
like on-line lists of commands for your 
favorite utilities and applications pro- 
grams, all you need do is write new 
help files. Help files all have the exten- 
sion /HLP, but you don't have to type 
in the /HLP extension when entering 
the help file name. 

Of course, there's a catch. Neither 
Radio Shack nor Logical Systems Inc. 
(the authors of TRSDOS 6.X) have 
supplied any information about writ- 
ing help files. To get you started, I'll 
describe the inner workings of Help, 
the format of a help file, and give you 
a Basic program that lets yftu write 
your own help files. 

Help has several functions. If you 
type in HELP from TRSDOS Ready, 
you'll see a full screen listing the help 
files available. On a distribution disk, 
DOS is the only category that appears. 

You have to follow a specific for- 
mat in setting up a help file so the help 
utility can move through a set of disk 
files quickly. 

If you type in the name of a help 
file, a list of topics appears that are ac- 
tually subsections of the complete help 
file (records in the file). To see infor- 
mation about a topic, type in its name 
and press the enter key. For instance, 
say you've developed a help file for 
Scripsit. If you type in Scripsit/HLP, 
you'll see a list of topics for Deleting, 
Inserting, Block Moves, and so on. 

Once you've looked over the help 
file, you can either press the enter key 
to return to the list of topics or type in 




the name of another topic in that cate- 
gory. When you're done with the files, 
press the break key to leave Help; you 
return to DOS with the screen restored 
as if you'd never used Help. 

If you don't feel like wading 
through the list of help files or topics, 
you can type in HELP followed by a 
help file name to bypass the explan- 
atory screen. Alternatively, you could 
type in HELP followed by both a 
category and a topic to move directly 
to a particular information screen. 
You can search all on-line help files 
for a particular topic key word with 
the command HELP Topic, and you 
can also set parameters for printout 
and video display (explained in Help's 
main menu). 

When you type in HELP from 
TRSDOS Ready, the program dis- 
plays its opening page and searches all 
disks for files with the extension 
/HLP. Help removes the extension 
and drive number from the file name 
and displays the rest as a category title. 
Since DOS/HLP is the only help file 
on the distribution disk, it's the only 
category that Help normally lists. 



If you have help files with the same 
name on different disks, Help displays 
each as a separate category. Add a 
drive suffix after a category name to 
tell Help to work with a file on a par- 
ticular disk; otherwise, it picks the first 
it comes to in the same way Basic does. 

Help File Structure 

The directory entry for DOS/HLP 
is the first clue to the file structure of 
all help files. DOS/HLP has a logical 
record length of 1 (instead of the more 
common record length of 256). It 
treats a help file as a string of bytes in- 
stead of a series of records, and it finds 
its way through the file by knowing 
the address of the individual bytes it 
wants to read. 



System Requirements 



Model 4 
64KRAM 
Disk Basic 
TRSDOS 6.2 



100 • 80 Micro, March 1985 



Circle 248 on Reader Service card. 



Circle 456 on Reader Service card. 



c 



XENIX 

MULTI-USER SOFTWARE 




WE HAVE THE ANSWER! 

MODEL 16 TRS-80 ACCOUNTING 



ALSO AVAILABLE AS 
SINGLE USER FOR 
THE MODEL II & 12 

NEED SOMETHING 
SPECIAL" 5 



CALLUS! 




AN .'.••- I )R SERIOUS BUSINESS 
'Mf phi .;..-,'.■■.•... ., AS&OClAtES 
/OUR COMPUTER PROFESSIONALS' 



ACCOUNTS RECEIVABLE 
GENERAL LEDGER 
INVENTORY INVOICING 



ACCOUNTS PAYABLE 

PAYROLL 

JOB COSTING 



$595 EACH ■ 



;!>!< CATIONS AMI AVAll ABl I 



<5> 



MANUFACTURING INVENTORY $995 



THE PROGRAMMER & ASSOCIATES. INC 
IH/, 10802 FOREST LANE SUITE 110 

^/V) DALLAS. TEXAS 75243 

1214-341-9874 



s— . 



F^ 



Ml 



BQB 



DAISY WHEEL 

New Smith Corona L-1000 



True letter quality printer for less than the cost of an 
office typewriter 1 Priced $500 less than other popular 
daisy wheel printers' 

SALE PRICE: 



$296 




FEATURES: 

it Friction teed 

it 1 5 Cps 120 wpm 

it Changeable daisy wheels' 

it Parallel or serial interface 

it Compatible with R S Apple etc 

SUNLOCK SYSTEMS 
42 1 7 Carolina Ave. 
Richmond. Va. 23222 
ADDITIONAL PRINTER SPECIALS 



Epson 
RX80 $299 
80FT 369 
RX100 529 
FX80 479 
FX100 649 



Okidata Brother 15 $479 
ML82 $349 Brother 25 739 
ML83 569 Gemini 10X 279 
ML84 975 Man/Tal 80 319 
ML92 429 Qume 1140 1349 
ML93 699 SCM TP-2+ 449 



CItoh 8510 $359 
CItoh F10 1099 
Sv.Reed 500 429 
Diablo 620 949 
NEC 2000 849 
NEC 3510 1499 



TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-321-9191 

We accept MasterCard. Visa and CODs 



Circle 36 on Reader Service card. 



& ©°)i^/^f 8 



NOW YOU CAN DUPLICATE VIRTUALLY ALL OF YOUR TRS-80 DISKETTES 

9 

COPYCAT 3 will allow you to make an exact duplicate of virtually all of your disk- 
ettes even if they are protected. And this includes your games and utilities. COPY- 
CAT 3 automatically analyzes, formats, copies and verifies each track of the diskette 
you are duplicating. The entire process is amazingly fast, typically less than 70 seconds 
and even less with verify turned off. 

COPYCAT 3 is intended for your personal use only, in making backup copies of your 
protected software. 

COPYCAT 3 will run on the TRS-80 Model 3, 4 or 4P computers. 

COPYCAT 3 $49.95 

Please add $2.00 for postage and handling. CA residents add '6% sales tax. 
All orders are normally shipped the next business day via first class mail 



OMNISOFT R€S€RRCH 



2170 W. Broadway, #501A 
Anaheim, CA 92804 

(714)772-5000 

Dealer inquiries on your letterhead are welcomed. 



80 Micro, March 1985 • 101 



THE NEXT STEP 



Program Listing. Help file generator. 



100 

101 
102 

103 
104 
105 
106 
10- 
108 
109 
110 
111 
112 
113 

lis 

115 
116 

117 
118 
119 
120 
121 
122 

123 

124 

125 

126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 

146 
147 

148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
261 
162 
163 
164 
165 
166 



HELP Kile Generator 

for TRSDOS 6.2 

Written by Hardin Brothers 



167 
168 
169 
170 

171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
18l 
182 
18.) 
184 
185 
186 
18/ 
188 
189 
190 
191 
192 
193 
194 



DEFINT A - Z 

MAX. LINES * 100 

MAX. TOPICS - 100 

DIM AS (MAX. LIMES) , BS (MAX. TOPICS) , C S ( MAX . TOPICS) 

BCOUNT = 0: PLACE = 

Get a file name, massage it, and open file 

INPUT "Name of Category (File Name)"; FS 

' Strip extension and drive I 

IF INSTRfFS, V") THEN FS ■ LEFTSfFS, INSTR ( FS , "/ ") -1 ) 

IF INSTR(FS,":") THEN FS = LEFTSIFS, INSTR ( FS ,":") -1 ) 

1 Cut down to 8 characters 

FS - LEFTSIFS, 8) 

INPUT "Drive Number";DS 
' Is it legal? 

IF LEN(DS)>1 OR DS>"7" OR DS<"0" THEN GOTO 120 
' Put together the file name 

FILE. NAMES = FS + "/HLP:" + DS 

Open the file and erase old copy if there is one 
OPEN "R",l, FILE. NAMES, 1 

IF LOF(l) - THEN GOTO 132 

CLOSE 1 

KILL FILE. NAMES 
GOTO 126 

' Field the file 

FIELD 1, 1 AS DS 

Get a Topic Name and turn it into upper-case 

CLS 

BCOUNT = BCOUNT + 1 
PRINT "Category =«> ";FS 
PRINT "Topic I"; BCOUNT; " ==> "; 
LINE INPUT BS(BCOUNT) 

IP LEN(BS( BCOUNT)) >32 THEN GOTO 139 

IP LEN (B$( BCOUNT) ) < 2 THEN GOTO 139 

FOR I - 1 TO LEN I B$( BCOUNT)) 

B. CHARS * MIDS(BS( BCOUNT) ,1,1) 

IF B. CHARS => "a" AND B. CHARS <- "z" 

THEN MIDS(BS(BCOUNT) ,1,1) « CHRSl ASC ( B. CHAPS) -32) 
NEXT I 

' Put current file location into CS(BCOUNT) 

CS( BCOUNT) = MKIS( PLACE) 

ACOUNT = 'Line counter 

INV.OFF = -1 'Flag for inverse print 

' Now get the lines of text for this topic 

CLS 

PRINT "Category «*> ";FS 

PRINT "Topic **> ";BS(BCOUNT) 

PRINT: PRINT "Embed <\> to toggle inverse print" 

PRINT "Enter line of <X> to end" 

PRINT 

1 Enter one line 

ACOUNT ' ACOVNT + 1 'Increase line counter 

AS(ACOUNT) = "": PRINT "Line"; ACOUNT; "==> "; 

LINE INPUT AS (ACOUNT) 

IF AS (ACOUNT) * "X" THEN GOTO 170 'Leave when done 
Change <\> characters to inverse toggles 

IF INSTR(AS(ACOUNT) ,"\") THEN 

MIDS(AS(ACOUNT) , INSTR (AS ( ACOUNT) ,"\") ,1) = CHR$(127): 

INV.OFF = NOT INV.OFF: 

GOTO 166 
' Put a CR at the end of each line 

AS(ACOUNT) = AS(ACOUNT) + CHRS(13): GOTO 161 

If inverse print is still on, place toggle before CR 
IF NOT INV.OFF THEN 

AS(ACOUNT-l)=LEFTS(AS(ACOUNT-l) , LEN ( AS ( ACOUNT-1 ) )-l) +CI!RS(127) +CHRS(13) 
AS(ACOUNT) = CHRSI12) 'Mark end of Topic 

Put the text into the file 

FOR I = 1 TO ACOUNT 

FOR J = 1 TO LEN(ASd) ) 

LSET DS = MIDS(ASd) ,J,1) 
PUT 1, PLACE + 1 
PLACE = PLACE + 1 
NEXT J 
NEXT I 

' Another topic? 

CLS 

PRINT "Another Topic?"; 

YN$ = INPUTS(l) 

IF YNS = "Y" OR YNS = "y" THEN GOTO 136 

IF YNS <> "N" AND YNS <> "n" THEN GOTO 187 

No more Topics, so sort the list using a selection sort 

CLS: PRINT "Sorting Topic Names" 

IF BCOUNT <2 THEN GOTO 207 'Skip sort if less than 2 topics 



Listing continued 



Store your 

topic titles in 

uppercase 

and in alphabetical 

order. 



Each help file has three sections: the 
text of all topics, a list of topic titles, 
and a pointer to the beginning of the 
title list. The order of the first two sec- 
tions may be reversible, but building a 
file that way would be more difficult. 

The file's final 2 bytes hold a 
pointer to the beginning of the topic ti- 
tle list. The file stores this pointer in bi- 
nary form, in least significant byte/ 
most significant byte (LSB/MSB) 
order. Help starts reading a help file 
by opening the file with a logical 
record length of 1 and then moving to 
the end of the file to read those 2 
bytes. It then uses those bytes to posi- 
tion the file to the beginning of the 
topic list. Because of the structure of 
the final pointer as well as the other 
pointers in the file, the maximum 
length of any help file is 64K, in- 
cluding topic titles and address 
pointers. 

The list of topic titles has several 
peculiarities. Each topic title must be 
at least 2 bytes long, though I know of 
no upper limit. However, Help only 
accepts 32 characters of input when it 
asks for a topic title, so use that as a 
practical limit. 

Store the titles in uppercase, be- 
cause Help translates your requested 
topic to uppercase before searching 
the list. Also, be sure to store the topic 
titles alphabetically. Help must use 
something akin to a binary search to 
find topic titles quickly; I know from 
experience that it can't find topics that 
aren't in alphabetical order, though it 
does include them in the topics list. 

Each topic title must end with a byte 
that has the high bit set. For example, 
if the help file contains a topic named 
Test, you must store the final 'T' as 
D4 hexadecimal (hex) instead of the 
normal ASCII value of 54 hex. Help 
follows each topic name with a 2-byte 
pointer to the position of the begin- 
ning of its text section in the file. 



102 • 80 Micro, March 1985 



Circle 425 on Reader Service card. 



Circle 299 on Reader Service card. 



DISK TERM 

KM SUIMT IttMIIML 



Terminal Mode: Transmit an ASCII file from memory or disk. 
Programmable lor unattended execution. Receive a file, write 
to disk when buffer is full, clear buffer and repeat, all 
unattended. File can even span disks 
Transmit and Receive Protocol: Separate from terminal. 
Allows transmission of multiple files of any type. Completely 
programmable for unattended operation at both ends. Even 
redials if no carrier. 
Other Features: 



Menu Driven 

DOS commands Irom program 
Supports aulo-dial modems 
XON A XOFF changeable 



Auto log- on 
Translation Tables 
Printer butter 25K to 2 5K 
Programmable Macro-keys 



• Operates under DOSPLUS LDOS NEWDOS 80 TRSDOS 

• Prepare tiles o't-line then upload 

• Telephone Directory lor auto-dial with modem settings 

• Store all settings in configuration dies 

• Model 3 S 4 transmit and receive at up to 9600 baud 

Model 4 enhancements: Full 80 x 24 screen. Has split screen 
option to separate data received and transmitted. Able to use 
second 64K for buffer. 

Model I, III, & 4 $69.00 

Add $3 00 Postage Check Money Order Visa. & Mastercard 
Indiana Residents add 5% Sales Tax 



INDIANA SOFTWARE DEVELOPMENT CO. 

(Division of DonTho Computer Service. Inc ) 
723 Franklin Square, Suite 502 • Michigan City, IN 46360 



Phone: (219) 879-2941 





COMPUTER ASSISTED DRAFTING 



PROFESSIONAL FEATURES 

Overlays, grids 
Zoom, pan 
Copy, rotate 
Reduce, enlarge 
Clip, merge 
Text labels 
Plot up to 24 x 36 
more 

HARDWARE REQUIRED 

Model III or 4 4P 

High-res screen 

Houston Instrument plotter 



GRAPHIC SCPLE 

UMRETQUCKD SCALE DRfWING 
PLOTTED OH DMP-4B PLOTTER 



SOFTWARE ONLY S 449.95 

<r 

cb^Fmicrodex 

1212 N Sawtelle 
Tucson AZ 85716 
(602) 326-3502 




Circle 390 on Header Service card. 



GS&Lr 



ELECTRIC 

WEBSTER r . 

W/Corrections fcJBCtflf 

1IQ 95 ^ter 



(«Q!a * 



MOD4 Speedup Kit 
7500 



DOSPLUS 4A 

with M-ZAL 

115 95 

DOSPLUS 3.5 

$50 95 

MTERM 

$49 95 

VERBATIM DATALIFE DISKS 
5V 4 "SS/DD 19.95/10 

5 1 /4"DS/DD 28.95/10 



NEWDOS80/V.2 J 

COMREF for Newdos80 



MICRO CLINIC Mod 1 

MICRO CLINIC Mod 3 

OMNITERM 

CYBERCHESS 

TALLYMASTER 

MAXI CRAS 

TRASHMAN 

FASTER 

R.P.M. 

MAXI MANAGER II 

EN Base 

SBSG Accounting Modules 
Model 1 or 3 165.00 

Model II 240.00 

MAS80 Accounting 
Syst. 299.95 



i 97.50 
13.95 
24.50 
28.50 
64.95 
24.95 
54.75 
74.95 
32.50 
22.95 
21.50 
146.95 
132.50 



Free Use of Credit Cards 
Friendly. Honest, Reliable Service 



Toll Free Order Line 



24-Hour Shipping for Items in Stock 
Large Selection-Call for Items Not Listed 



We accept Visa. MasterCard, check, cash money 
orders COD. and POs on approval In the 48 con- 
tinental States, please add $2 50 for UPS standard 
shipping. Alaska, Hawaii. FPO, US Mail, and foreign 
orders are charged actual shipping & handling 
charges COD orders are charged an extra S2 00 and 
require cash or certified check upon delivery 

When ordering by mail include your telephone 
number, credit card information, computer model 
memory size, and number of drives. Colorado resi- 
dents add appropriate sales tax. Prices are subject 
to change without notice 



TOLL-FREE ORDER LINE COLORADO/TECHNICAL 



1-800-468-4474 (303) 861-9250 

applied 

microsystems, 
inc. 

612 Washington, Denver, CO 80203 



AMI 



80 Micro, March 1985 • 103 



Circle 355 on Reader Service card. 



LARGE CAPACITY 

ACCOUNTING PROGRAMS 

FOR TRS-80 I.34S4P. LNW. I OBO 



THE NEXT STEP 



NEED JUST 2 DRIVES 
FOR CAPACITY BELOW 



ACCTS RECEIVABLE $1 50.00 

5000* ACCOUNTS I 5000 + TRANSACTIONS 
BALANCE FORWARD 99 TRANSACT CODES 
30 60 90 120AGEDSTATEMENTSSMOW 
DATE/ INV» i DESCRlP/AMT' & AGEING 
SELECTIVE FINANCE CHARGES* RATES 
FAST ENTRY POSTINGW AUDIT RE PORT 
SUB ACCTS % CREDIT LIMIT DATE OF 
LAST PAYMENT LABELS 
ADD $50 00 FOR INVOICING MODULE 
OTHER OPTIONS AVAILABLE CALL 

ACCTS PAYABLE $50.00 

DERIVED FROM OUR A/R WRITES CHECKS 

GENERAL LEDGER $1 50.00 

40CK ACCTS 5000+TRANSACTIONS/MONTH 
BEST LOOKING FINANCIAL STATEMENTS 
DEPARTMENTAL P » L IUP TO 91 
STATEMENT OF CHANGES 
SUB-TOTALS WHERE YOU WANT 
FAST FLEXIBLE POSTING INPUT 
PERCENTAGE PAL 



DEMO AVAILABLE S20 00 EACH 
APPl IFS TOWARDS PURCHASE 



COMBINATION SPECIALS 

« ' A/R4G/LFOR $20000 

« 2 A/R. A/P » G/L FOR $22500 

HARD DISK VERSION SLIGHTLY MORE 



M.D.P. 

236ft Lincoln O'Ov.ue CA 9596b 

MON f Ri 8AM TO 2»V 
ADD300S&M A0D300COD 



Circle 111 on Reader Service card. 



Debug Programs Faster! 

DPIT (for Debugging Programs by In- 
terpretive Tracing) is a sophisticated 
tool with which you can explore and 
debug machine language programs. 
In the COMMAND mode, it will step 
through machine language pro- 
grams one instruction at a time or 
a block of instructions, showing you 
the address, hexadecimal value, 
Zilog mnemonic, referenced regis- 
ters contents and referenced RAM 
contents for each instruction. The 8 
different COMMAND mode com- 
mands include load a program from 
disk, output to line printer or video 
display and define up to 15 different 
trace limits in RAM. The 19 com- 
mands in the DEBUG mode include 
block move, execute a CALL or RST, 
fill memory, find bytes, jump to ad- 
dress, memory modification in Hex 
or ASCII and modify flags or regis- 
ters. DPIT Includes a comprehensive 
manual available only on disk. 
DPIT $32.95 

ORDERING: Specify Model 1, 3, or 
4. Include $2.50 for postage and han- 
dling. Maryland residents add 5% 
sales tax. 

McSystems Software 

P.O. Box 44313 

Washington, DC 20026-4313 



listing 


continued 










195 


FO? 


I = 1 TO BCOUNT 






19b 




MINS = BS(I) 






197 




MIN.PTR = I 






198 




FOR J = I TO BCOUNT 






199 




IF BS(J) -> MINS THEN GOTO 202 






.100 




MINS « BS(J) 






201 




MIN.PTR ■ J 






202 




NEXT J 






203 




IF MIN.PTR = I THEN GOTO 206 






204 




SWAP BS(I), BS(MIN.PTR) 






20S 




SWAP CS(I), CS(MIN.PTB) 






206 


NEXT I 






207 


1 








^08 


' 


Now load the topic nanes ar.d addresses 






209 


■ 








21C 


CS 


= HKIS(PLACE) 'Save current file location 






211 


PRINT "Saving Topic Nair.es to Disk:" 






212 


PRINT 






213 


FOB 


I = 1 TO BCOUNT 






214 




PRINT BS(I) 






215 




B.CHAKS ■ RIGHTS (B$( I) ,1) 






216 


• 


Set high bit of last character 






217 




HIDS(BSd) ,LEN{BS(I) ) ,1) = CHRS (ASC ( B. CHARS) OR 128) 






218 




FOR J = 1 TO I.EN(BSH) ) 






219 




[.SET DS = MIDS(BS( I) , .1 ,1) 






220 




PUT 1 , PLACE + 1 






221 




PLACE = PLACE * 1 






2 22 




NEXT J 






223 


' 


Save address of Topic's text 






224 




FOR J = 1 TO 2 






225 




LSET DS *■ .'UDSICS(I) ,J,i! 






226 




PUT 1, PLACE * 1 






227 




PLACE - PLACE • 1 






228 




NEXT J 






229 


NEXT I 






230 


' 








231 


• 


Save addeecj of Vopic list 






232 


' 








23 J 


FOR 


1 = 1 TO 2 






234 




LSET DS * MIDS1CS, 1,1' 






235 




PUT 1, PLACE . 1 






236 




PLACE = PLACE ♦ 1 






237 


NEXT I 






238 


' 








239 


' 


Close file and leave 






240 


' 








241 


CLOSE 1 






242 


END 




End 



The computer stores text for each 
topic in modified ASCII form. To 
keep the disk file as short as possible, 
you can omit spaces from the text. If 
the computer stores any character with 
the high bit set, Help will print the 
character normally and follow it with 
a space. However, it will also print 
normal ASCII spaces, so you don't need 
to use this trick to condense the file. 

The character 7F hex tells Help to 
turn inverse printing either on or off. In- 
verse printing is automatically turned 
off when Help starts printing a section 
of text; the first 7F hex character turns 
it on, the next turns it off again. 

Help stores carriage returns in the 
text portion as normal OD hex bytes 
(the ASCII code for a carriage return). 
Each text section ends with a OC hex 
byte, which is a signal to Help to stop 
printing the text and display its own 
prompt message. 

When Help prints out the text for a 
topic, it follows specific formatting 
rules. First, it always puts the topic ti- 
tle at the top of the screen; you don't 
need to store the title again in the body 
of the text. Also, Help keeps track of 
the cursor position on the screen, and 



waits for your keystroke when the 
screen is full. The text does not need to 
have embedded marks for the end of 
each screen. The first screen holds the 
topic title plus 23 lines of text; each 
following screen holds 24. 

Creating Help Files 

After I deciphered the structure of a 
help file, writing a program to create 
new files was easy. I thought first of 
writing a program that would take an 
ASCII file from a word processor as 
input, but decided that it was easier in 
most applications to simply type the 
text directly into a Basic program. 

The Program Listing shows one 
way you can write such a utility. With 
the information above and the com- 
ments in the program, you should 
have little trouble understanding what 
happens in the program. It uses a sim- 
ple block structure for clarity, and 
demonstrates how to generate a help 
file. The only unusual part of the pro- 
gram is the way that you calculate po- 
sitions in the file. Basic numbers the 
bytes in the file starting at 1, but Help 
starts counting at zero. 

Though help files must have a cer- 



104 • 80 Micro, March 1985 



THE NEXT STEP 



You can create 

some unusual 

effects within the 

Help file format. 



tain format, you can still create some 
unusual effects with them. For exam- 
ple, you may want to display a single 
page of information instead of a list of 
topics with several pages of text. You 
can create such a file by removing lines 
141-181 and 193-205 from the List- 
ing. Treat each topic as a screen line 
(make sure you enter a full line of in- 
formation) and Help will think you've 
created a file with many topics and no 
text. When you type in HELP and a 
category from TRSDOS Ready, the 
single page of information appears on 
the screen. 

Also, you could create a file in 
which several topics share the same 
text. You do so by altering the Listing; 
even easier would be to use a file editor 
(such as Super Utility Plus or the 
LDOS file editor, FEDII) to alter the 
pointers following topic names so that 
they point to the same sections of text 
in the disk file. 

The power and flexibility of Help is 
only one example of the general excel- 
lence of TRSDOS 6.2. If you use a 
Model 4 or 4P and have not yet up- 
graded to TRSDOS 6.2, I urge you to 
do so. This new version of TRSDOS 
adds enough features to be well worth 
the upgrade price, and Radio Shack 
has removed most of the bugs of the 
earlier Model 4 TRSDOS. Help is the 
only new utility included with 
TRSDOS 6.2, but it alone is worth at 
least half the purchase price. ■ 



You can contact Hardin Brothers 
through CompuServe. Go PCS- 11 7 to 
the Writers' and Editors' SIG 
(WESIG) and leave your message ad- 
dressed to him. Feel free to join in 
discussions started by others. 

You can also write to Hardin at 280 
N. Campus Ave., Upland, CA 91786. 
Enclose a stamped, self-addressed 
envelope if you want a reply. 



SUBSCRIPTION PROBLEM? 

MOVING? 

Get help with your Subscription If possible, please have your mailing label 
by calling Our new toll free in f ront of >ou as well as your cancelled 
number: check or credit card statement if you are 

having problems with payment. 

1-800-645-9559* .,.„'„ ld „ 

If moving, please give both your old and 

between 9 a.m. and 5 p.m. EST, ne \ addre '* 

Monday-Friday. Nc * ^L^Luf" ^ 



Circle 150 cm Reader Service card. 



WHY W0U1D ANY 

SANE PERSON 

SPEND $199 

FOR A BetterBASIC 

SYSTEM 

WHEN DOS's IS FREE? 

HERE ARE 10 REASONS: 
TEST YOUR SANITY 

I • Full support for 640K memory Xe Structured language with BASIC 
syntax we Separately compiled program modules ■§• Speed: FAST 
«#• Extensibility (Make your own BASIC.) Oe User-defined procedures 
and functions #• Built-in windows support Oe Interactive programming 
language based on an incremental compiler V« 8087 math support 
10* Runs on IBM PC, IBM PC/XT and compatibles 



Summit Software 
Technology, Inc." 

P.O. Box 99 

Babson Park 

Wellesley, MA 02157 

(617) 235-0729 

Bet'e-BAS-C is o irodemarl o( 

Sufnmil Sol'wce Techno'oQy. Ire 
• BM PC. IBM PC XT and PC/DOS 

Ore ''(Mr"''-'-'; O* '*(•-'<:' ■ ' i 

i- . '.» jch "es Co-p MS-DCS 



NOW AVAILABLE FOR 
THE TANDY 2000 & 1200 




Sane Programmers 
Order BetterBASIC Now 



Price. $199 

8087 Moth Module: $99 

Runtime System: $250 

Sample Disk: $10 



MasterCard V'SA.PO Che 
Monev O'ders, and 
COD accepted 



80 Micro, March 1985 • 105 



2000 PLUS / by John B. Harrell IH 



Basic Bonus: 
Redefined Function Keys 



Last month's column focused on 
commercial software; this time 
around, I'll get into some Basic 
programming techniques. My pro- 
gram, KEYMOD.BAS, redefines the 
Tandy 2000' s 12 function keys; you can 
use the program as written or substitute 
any Basic commands you choose. 

Some Key Changes 

Why redefine the function keys? 
First, Microsoft chose to assign the 
most useless Basic commands to them. 
You really don't have much need for 
the TRON (trace on) or TROFF (trace 
off) commands. 

Also, the Fl key invokes the List 
command. This is fine if you want to 
list an entire program. However, when 
you want to list only a small segment 
of a program, you must remember to 
add a space between the key word and 
the part of the command specifying 
the program segment. Most of the 
time, I wind up with a syntax error 
because I forget the space. 

Finally, the Fl 1 and F12 keys aren't 
even assigned a command, so they're 
being wasted. 

The Program Listing permanently 
assigns new definitions to the pro- 
grammable function keys. Table 1 
shows the Listing's new commands; 
you can choose any commands you 
want. I'll explain some of the code 
segments so you can apply the same 
techniques to other programs. 

Lines 10-130 initialize the program 
and assign key definitions to the ele- 
ments of array K$( ). Lines 140-250 
prompt you to press the enter key 
after you insert a disk containing Ba- 
sic. EXE in drive A. 

Lines 260-310 perform the file- 
open operation. This seems more 
complex than usual, but the addition- 
al code is necessary. I want only 
Basic. EXE's last two records, so I 
must access the file using direct (ran- 
dom) access methods. However, if 
you attempt to open a file using the 



CfadeWZftc?^ 




Program Listing. KEYMOD.BAS. 



10 DEFINT A-Z: DIM KS(12) 

20 KS(1) = "LIST " 

30 KS(2) = "RUN"+CHR$(13) 

40 KS(3) = "LOAD"+CHRS(34) 

50 KS(4) = "SAVE"+CHRS(34) 

60 K$(5) = "LLIST ■ 

70 K$(6) = "SYSTEM" +CHR$( 13) 

80 K$(7) = "FILES"+CHRS(34)+"*.BAS" 

90 K$(8) = "EDIT " 

100 KS(9) = "CLS"+CHR$(13) 

110 K$(10) = "SCREEN 0,0,0"+CHR$(13) 

120 K$(ll) = "WIDTH 40"+CHR$(13) 

130 K$(12) = "WIDTH 80"+<:HR$(13) 

140 CLS 

150 print "BASIC Function Key Modification" 

160 PRINT "Written by: John B. Harrell, III" 

170 PRINT 

180 PRINT:BEEP 

190 PRINT "Make sure the disk in drive A has the BASIC.EXE file" 

200 PRINT "to be modified and then press <ENTER> when ready." 

210 AS="" 

220 WHILE AS="" 

230 A$=INKEYS 

240 WEND 

250 IP ASC(A$)<>13 THEN 210 

260 ON ERROR GOTO 700 

270 OPEN "I",1,"A:BASIC.EXE" 

280 CLOSE 

290 ON ERROR GOTO 

300 OPEN "R",1,"A:BASIC.EXE",256 

310 FIELD 1, 128 AS R1S, 128 AS R2S 

320 GET 1,202 

330 R202.1S=R1S: R202.2S-R2S 

340 ZA$=R202.1$: GOSUB 750: ZAS-R202.2S: GOSUB 750 

350 GET 1 

360 R203.1$=R1$: R203.2S-R2S 

370 ZAS-R203.1S: GOSUB 750: ZAS-R203.2S: GOSUB 750 

3 80 MID$(R202.2S,117,11)=STRINGS(11,0) 

390 MIDS(R202.2S,117,11)=K$(1) 

400 MIDS(R203.1$, 1,12 8) -STRINGS (128,0) 

410 FOR 1=0 TO 7 

420 MiDS(R203.1$,5+I*16,16)=K$(I+2) 

430 NEXT 

440 MID$(R203.2S,1,4 8)=STRING$(4 8,0) 

450 FOR 1=0 TO 2 

460 MIDS(R203.2$,5+I*16,16)=K$(I+10) 

Listing continued 



106 • 80 Micro, March 1985 



Circle 192 on Reader Service card. 



Multi-User 

Manufacturing Control 

Software 

( XENIX IM OPERATING SYSTEM) 



Circle 32 on Reader Service card. 






AT LAST 

A system designed 
specifically for manufacturing 

• INVENTORY CONTROL 

•MATERIAL REQUIREMENTS PLANNING 

•CUSTOMER ORDER ENTRY 

•ACCOUNTING 

Features: — Menu Driven — System Security 
— User Designed Data Base 
— Customization Available 

For More Information, Call or Write: Software Concepts 

5786 Annarue Place 
Columbus, Ohio 43229 
(614) 895-7196 

XENIX TM IS A TRADEMARK OF MICROSOFT CORPORATION 



Electronic Mail.... 

On A Micro! 



As well as Public, Private or Pay BBS. 

Our system offers features such as: 

• Multl levels of access to a user. 

• High security of system and your files. 

• Unattended message transfer to compatible system. 

• Fully maintainable from a remote location. 

• User configurable to include or exclude most features, 
allowing you to personalize your system. 

• Number of users & messages configurable from 

1 to 900, allowing those with large storage to use it. 

• Configurable to handle different terminals. 

• Supports Hayes type of modem. 

• and much much more. 

ORDER NOW • SAVE $10.00 
when you mention this AD. 

IBM & Compatibles $249.95 

TRS-80 $199.95 

Mail Label Module $59.95 

T erminal for IBM $79. 95 

^7"^!y <Jy&£em& P.O. BOX 94433 
(604) 946-7910 Richmond, B.C. V6Y 2A8 



Try Our BBS • Call our Data Line • 604-9460955 




80 Micro, March 1985 • 107 



2000 PLUS 





Listing continued 

470 NEXT 

400 PRINT 

490 PRINT "Record modification is complete - the modified records are:" 

500 PRINT 

510 ZA$-R202.1$: GOSUB 750: ZA$=R202.2S: GOSOB 750 

520 ZA$=R203.1$: GOSUB 750: ZA$=R203.2$: GOSUB 750 

530 PRINT 

540 PRINT "Ready to permanently modify file BASIC.EXE with these 

550 PRINT "new key definitions." 

560 PRINT 

570 PRINT "Is it 'OK' to update BASIC.EXE? 

580 AS="" 

590 WHILE A$="" 

600 A$=INKEY$ 

610 WEND 

620 IF A$<>"Y" AND ASO'y" AND A$<>"N" AND A$<>"n" THEN 580 

630 IF A$=*N" OR A$-"n" THEN STOP 

640 LSET R1S=R202.1$: LSET R2S=»R202.2S 

650 PUT 1,202 

660 LSET R1S=R203.1$: LSET R2$=R203.2$ 

670 PUT 1 

6 80 CLOSE 1 

6 90 END 

700 PRINT 

710 BEEP: BEEP: BEEP 

720 PRINT "A:BASIC.EXE cannot be found on the current disk in drive A" 

730 ON ERROR GOTO 

740 RESUME 180 

750 PRINT:F0R 1=0 TO 7 

760 A$=HEX$(I*16) : IF LEN(A$)=2 THEN PRINT AS;": " ; ELSE PRINT "0";A$;": 

770 FOR J=0 TO 15 

775 IF J=7 THEN PRINT " 

780 A$=MIDS(ZA$,I*16+J+1,1) 

790 AS=HEXS(ASC(A$)) : IF LEN(A$)-1 THEN AS="0"+A$ 

800 PRINT AS;" "; 

810 NEXT 

820 PRINT CHR$(179) ; 

830 FOR J=0 TO 15 

840 AS=MID$(ZA$,I*16+J+l,l) 

850 IF ASC(AS) < 31 OR ASC(AS) > 127 THEN PRINT"."; ELSE PRINT A$; 

860 NEXT 

870 PRINT CHRS(17 9) 

880 NEXT 

890 RETURN 

End 


It's imperative to 

verify that the file 

exists before writing to it. 


"R" option and the file doesn't exist, 
Basic creates a new file without indi- 
cating the previous file-open failure. 

Any subsequent write operation ex- 
tends this file. Therefore, it's imper- 
ative to verify that the file exists before 
writing to it. If you attempt to open 
the file using the I option and it's not 
there, Basic flags the failure as a file 
open error and lets you know. 

Lines 320-370 retrieve records 202 
and 203 from the file Basic.EXE and 
display their contents. These records 
contain the key definition table that 
you're modifying. The program 
stores these two records in the pro- 
gram as 128- byte segments even 
though I set the record length to 256 
bytes. That's because Basic's ability 
to manipulate character strings is lim- 
ited to 255 bytes. The subroutine that 
this segment calls (line 750) displays 







Circle 71 on Reader Service card. 



T80-FS1 



Simulator 




See your dealer! 



Available for Model I or Model III. $25.00 
on cassette or $33.50 on disk (with 
enhancements) All versions require 16K. 



H you order direct, please specify whether you have Model I or 
Model III (the media ere different) and whether you want disk or 
cassette. Include $1.50 and indicate UPS or first class mall. Illinois 
residents add 5% sales tax. Visa and Mastercard accepted, 
fl you don't yet own a disk, don't fret. You can upgrade anytime. 
Cassette users may send beck their cassette (but not the manual) 
along with $10 (first class shipping included) and receive the disk 
version. 



©MfeLOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217) 359-8482 
Telex: 206995 



108-80 Micro, March 1985 



Circle 127 on Header Service card. 



2000 PLUS 



records in hexadecimal (hex) and 
ASCII format. 

Program lines 380-470 modify the 
key assignments using the key strings 
assigned to the K$( )array. When the 
modification is complete, the program 



Function 


Original 


KEYMOD.BAS 


Key 


Assignment* 


Assignment* 


Fl 


[List) 


[List] 


F2 


[Run<] 


[Run<] 


F3 


[Load"] 


[Load"] 


F4 


ISave"] 


ISave"] 


F5 


[CONK] 


[LLIST ] 


F6 


[,"LPT:"<] 


[System<] 


F7 


[TRON<] 


[Files"*.BAS] 


F8 


[TROFF<] 


[Edit ] 


F9 


[Key] 


[CLS<] 


F10 


[Screen O.O.fK] 


[Screen 0,0,(K] 


Fll 


[1 


[Width 4TX1 


F12 


[] 


[Width 80<] 


•Character strings are enclosed in [ ] sym- 


bols to allow including blanks and the " 


character 


in the assigned key text. The < 


character designates a carriage return. 


Table 1. Standard and reassigned 


function key commands. 



prompts you to initiate writing the 
modified records to the Basic. 
EXE file. 

To use the program under the new 
Basic 1.03.00, load Basic and the 
Listing, then make the changes shown 
in Table 2. ■ 



1. Delete lines 320-340 

2. 350 GET 1,203 

3. Delete 380-390 

4. 420MID$(R203.1$,5 + I*16,16) = K$<I+1) 

5. 440 M1D$(R203.2$. 1 ,64) = STRIMG$(64,0) 

6. 450 FOR 1=0 TO 3 

7. 460MID$(R203.2$ f 5 + I*16,16) = K$(I + 9) 

8. Delete 510 

9. Delete 640-650 
10. 670 PUT 1,203 

Table 2. Changes to the Listing for Basic 
1. 03. 00. Boldface type indicates a change 
from the original listing. 



John B. Harrell HI is an associate 
editor of 80 Micro. You can reach 
him at 1519-A Carswell Circle, Boil- 
ing Air Force Base, Washington, DC 
20366. 



PLAY CHESS WITH 

THE MASTERS! 

INTRODUCING 

CHESS 
CLASSICS 



Entertaining, educational 

chess software to inprove 

your chess game. 

Each disk contains 64 games 

played by masters from Mor- 

phy to Fischer and Karpov. 

Use CHESS CLASSICS to 

look at a great game and see 

if you can guess the winner's 

move. 

Built-in scoring system gives 

you an approx. US Chess 

Federation rating for your 

success in picking the right 

move. 
Available for TRS-80 Model 

I, III and IV 
KING PAWN DISK . . $59.95 
QUEEN PAWN DISK $59.95 

BOTH DISKS $100.00 

(CT Residents add 7V 2 °/o sales tax) 
Send check or money order to: 

Noteworthy Software Inc. 
12 Noteworthy Dr., 
Danbury, CT 06910 



Circle 464 on Reader Service card. 



Graphics Solutions 

High-Resolution Software and Hardware 



GBASIC 3.0 - Radio Shack Model 
4/4P/III hires board owners take note of 
an enhanced graphics Basic; GBASIC 3.0 
not only has an equivalent for each of the 
BASICG commands but adds a number of 
important new commands while using less 
memory. The hires screen can be printed 
on any of 20 popular printers or saved to 
or loaded from disk without leaving Basic. 
The software works with TRSDOS 1.3, 
6.1.2, 6.2, LDOS, NEWDOS80. and 
DOSPLUS. The disk contains 40 graphics 
programs/files. Also included is a detailed 
manual which includes assembly language 
entry addresses. $49.95. (Specify Model 4 
or III mode or add $10 for both.) 

The following seven programs run on 
a Model 4/4P/III equipped with a Radio 
Shack graphics board and GBASIC 3.0 or 
a Micro-Labs Grafyx Solution board: 

DRAW - A powerful full screen graphics 
drawing and editing program. $39.95. 

BIZGRAPH - Create business graphs from 
hand-entered or VisiCalc data. $98.00. 

LET'S WRITE MUSIC - An editor which 
displays and prints music. $49.95. 



xT.CAD - Professional drafting aid which 
outputs to a printer or plotter. $449.95. 

3D-PLOT - View three-dimensional data 
from any perspective or angle $39 95 

MATHPLOT • Plot equations of the form 
Y=F(x) with auto scaling. $39.95. 

SURFACE PLOT - Plot three-dimensional 
equations of the form Z=F(x,y) $39.95 

GRAFYX SOLUTION. Plug-In, clip-on 
board enhances any Model 4/4P/III to 
provide 640 x 240 / 512 > 192 dot 
graphics. Comes with over 40 programs 
and files including GBASIC 3.0 which adds 
over 20 new commands. $199.95. 

80-6RA.FIX. Plug-in, clip-on board 
upgrades any Model HI/I to provide 128 
user-definable characters. Comes with over 
20 programs. $69.95 (III), $99.95 (I). 

JOY-MOUSE. Allows a Radio Shack 
CoCo joystick, mouse, or touch pad to be 
connected to any Model 4/4P/III. Hardware 
provides X. Y position values from to 
255. A built-in speaker produces sound 
from the cassette port. $99.95. 




G.I.N. A. Software program for the Model 
4/4P/UI/I which uses the standard block 
graphics screen to display a window to a 
larger 65536 * 65536 dot tablet. The 
arrow keys are used to draw two or 
three-dimensional ligures. The display can 
be scaled, shifted, or rotated in any 
dimension. The final picture is printed in 
hires on Radio Shack, Epson, Gemini. NEC 
8023, or Prowriter printers. $75.00. 

Please specify your exact system 
configuration when ordering or requesting 
information Payment may be by check, 
Visa, Mastercard, or COD. Domestic 
shipping is free on pre-paid orders. Texas 
residents add 5'.% sales tax. 

Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 



80 Micro, March 1985 • 109 



Circle 416 on Reader Service card 



SAVE A BUNDLE 



WITH ONE OF 
OUR BUNDLES 



We have put together special bundles of software just in time to save you a bundle of money. Didn't you ever wonder why CP/M was so 
popular' 7 The reason is the software availability All programs (except EP) are for the Model 4/4 P and have been optimized to install and run 
without hassle. For example, we have memory-mapped WordStar* and it runs circles around the standard version available elsewhere. We 
also added printer drivers for the Daisywheel II and the DMP-21 00. Our CP/M* 2.2 is the best around. Read the reviews. You know the 
programs. You know the prices. This is the years' best value. You owe it to yourself to let these CP/M® programs and thousands of others 
(many in the public domain) start serving your needs. 



Bundle 

WordStar* *L _ ^ 
MailMerge' $OQQ 
SpellStar'" *fc^^ 

Starlndex" 0*»w4 

Montezuma Micro CP/M* 

RETAIL VALUE $1009 



Bundle #5 



149 

Delivered 



Electric Pencil"" 
Red Pencil™ 
, Blue Pencil'" 

Works with TRSDOS. NEWDOS-E 

OOSPLUS and MULTIOOS 

(Model 1.3,4) 

RETAIL VALUE $240 



Bundle 

#2 

WordStar® 

DataStar"" 
ReportStar'" 
CalcStar™ D»M*»f»* 

Montezuma Micro CP/M* 



399 



RETAIL VALUE $1354 



WordStar* Bundle 
MailMerge* #3 

SpellStar **** 

'Starlndex" $AQQ 
DataStar™ ^^ ~ 

n .(>> m Delivered 

ReportStar 
.CalcStar'" 

Montezuma Micro CP/M* 

RETAIL VALUE $1699 



Save A Bundle on these books and disks 

Take advantage ot our volume discounts. Buy any three items from this list and deduct $5 Irom 
your total order Buy four deduct $10 Buy five deduct $15 Buy six. deduct $20 and so on 
Buy a bunch, save a bundle Please add $1 each for shipping Add $5 to orders under $50 lor 
handling 



Bundle 
#4 



'599 

Delivered 




'1984 Dv Monieruma Mcru WordStar" SpeuStai" Starlndex" MailMerge' DataSlar' HeconStai " and CaKSI*" belong ic 
MicroPro' InK mJ t M f HI Corporation CP M* Oetongs lo Digtta- Research <nc aBASf Ir* Belongs lo Ashlan Ule inc AH the Pencils " 
Belong lo Michael Shrayer TurttJ Pascal" aetongs lo Bortann intematonai 




WordStar" 
MailMerge'" 
SpellStar'" 
Starlndex" 
dBASE II' 
JurboPascal'" 

Montezuma Micro CP/M® 

RETAIL VALUE $1553 



TRS-80 Disk A Other Mysteries. The Mow to book ol data 
recovery tor the TRS-80 Model I disk operating system 1 28 pages Retail 
Retail $22 50 Now $18 

Microsoft BASIC Decoded A Other Mysteries. The com- 
plete guide to Level II and BASIC 312pages 
Retail $2995 Now $24 

The Custom TRS-80 A Other Mysteries. The complete guide 
to customizing TRS-80 Hardware and Software 336 pages 
Retail $29 95 Now $24 

BASIC Faster A Better A Other Mysteries. The complete 
guide to BASIC programming tricks and techniques 290 pages 
Retail $29 95 Now $24 

BASIC Faster & Better Library Disk. Contains 121 functions 

subroutines and user routines Search merge, compare and listing routines 

plus array handlers. BASIC overlays and video drivers 

Retail $19 95 Now $16 

BASIC Faster A Better Demonstration Disk. Contains 32 

demos ot the Library Disk contents above 

Retail $19 95 Now $24 

BASIC Disk I/O Faster A Better A Other Mysteries. 

Programming tips and techniques to store/retrieve data from disk. 432 

pages Retail $29 95 Now $24 

BASIC Disk I/O Faster A Better Demonstration Disk. All 

ol the maior demo programs and library ol disk 1/0 subroutines in 25 BASIC 
programs Random, Indexed Sequential and TREESAM file handlers 
included Retail $29 95 Now $24 

Machine Language Disk I/O A Other Mysteries. A guide to 

machine language disk 1/0 tot the TRS-80 288 pages 

Retail $29 95 Now $24 

TRSDOS 2.3 Decoded A Other Mysteries. Detailed explana- 
tion ol the Model I disk operating system 298 pages 
Retail $29 95 Now $24 

How To Do It On The TRS-80. A complete applications guide to 
the TRS-80 Model I. II III 100 and Cofcx Computer 352 pages 
Retail $29 95 Now $24 

The Custom Apple A Other Mysteries. Who cares 7 
Retail $29 95 Now $19 

Oue lo me nature ol this business meie are NO REFUNDS on software We accept 
Amencac i jniess MaslerCaid Visa and COO Your caid is not charged until we ship your ordei 
Personal and company checks are accepted without dewy (cal Ic* delailsi Delivered pices are 
iw the lowe' 'ignimosl 48 Slales only P^es and speciticatons su&iect lo change without notice 
I' you don l understand any ol this just give US a call and we will lake the lime lo explain ii until 
/on do fusi irnieis at always welcome here 

ORDER NOW . . . TOLL FREE 



NIONTEZUNU. ^StfS^l 

NIICPO"' - '"' ^"«»m800-442-1310 



214339-5104 ■ 

RedtXtrJ Airport Hangar #8 

P Box 3202 7 

Dallas lexas Z5232 "WE KEEP YOU RUNNING' 



Tha To* F >M imas ara 'c odars only 
Specifications sutaacl to cftanga without notioa 



110 '£0 Micro, March 1985 



Circle 416 on Reader Service card. 




MONTEZUMA. 

MICRO 



P.O. Box 2169 

Camp Verde (Lizard Flats) 

Arizona 86322 

WE KEEP YOU RUNNING 



COMPUTERS 



; in 



Mod* 4 Ml 

.*vi06- 16* 

26 '069 i» Moo* 4 64K RS73? Pure Radio Sn; 
76 108C 64« Mod* 4 Ponetue 2d- 1 RS232 
26 1026 16K Cow Comouler 2 

26JW 16k f. tended BAS-C Cow Cor-woi* 2 
26 J'J- 64R E"ienoeo BASC Coo Compute- i 
26.1114 16ft Cow Comput* 2 
2frlli6 I6K trended BASIC Cow Compute- 2 
26 3569 Pocket Comput* 3 *rm 4K ram 
26 3590 Pockei Comout* 3 
26-3601 Pockei Compute- 2 
26 3650 POOH Compulei * 
26-38C1 Mode 100 W. °vx* Compute- 
26 3«02 Moo* '00 24K «diw Comcu'e- 
26 4004 Moo* ' 2 1 Onve 
26-4005 Mode- ■? 7 Or.v* 
26 5'03 Moo* 2000 2 drive '28K 7333 

26-5104 Moor 2000 * Hard Disk ana 256« 3599 

26 6004 Mooe 'SB i-D-.ve 335' 

26-6005 Moo* '6B ?[»» 3975 

26-6006 Moon '66 -iff bu»i «• I5MO na-d O.S. 5352 

26 6050 01 1 i*mmai 499 

26 6052 N«W 01 100 famm* 675 

NEW TANOV "IBM-XT' COMPUTER. This new com- 
puter from fl/S is an IBM clone and will run IBM software 
Our price is complete with green monitor, color video 
board 256K RAM. a 360K "loppy and a 1 Mbyte internal 
HD ... $2695 



2379 



MODEMS 



26<064 I 

26 • 1 73 DC Modem ll 

76 1174 Acoustic Coupler Modern 

26-1175 DC Modem IB 

"6 ' ' 76 DC 22' 2 >*ot" Spaed Modem 
Anchor Mart ■ Modem 300 Baud enl 
Anchor 300.1200 Baud Modem «f ; 
Hayes Smartrnodem 300 Baud 
Hayes Smalmodem 1200 Baud 



PERIPHERALS 



apension interlace lo- • 



r Moo* i 



26 05' i Genome «S Pantyhose Ant.-Giare never- 

26 1065 Model 4P Carrying Case 

26 I'll Moo* 1 3 4 5MB Hard D»s» Shomhv 

26 I '33 Model 3 I5M8 «*0 Disk '"51 M 

26 "34 Model 4 I'l.ie Hard Cxsk msl K.i 

26-1 iB3 Model '00 Bar Code Read* 

26 " 85 NCWI Cow Compule- Koala Pad 

26 i-97 NCWI Mouse lor Modei 2000 

26-' 198 Newt Serial v Paaa* Convener 

26 1 208 CCP. 61 Cassette tape Recorder 

26-1209 NEWICCR82 Cassette T ape Recorder 

26-1326 Ant.Gu»e Panel Model 2 12. '6 

26 1342 Cww Keycover lo- Mode. 3 4 

26 uio Model 100 Modem Ceo* 

26 1429 Automat* ROwe* Stnp.'Surge PrOieClur 

26-1451 Nnn Automalic Power StuyFatei 

26 145 7 Am Gi.ii- Panel Model 1 3.4 

26 2226 Cow Compute- Oelu«e RS-232 Hit 

26-3007 Cox* Computer Carryng Case 

26-3008 Cow Compute- Joysticks Per Par 

26 3012 Cow Compute- Deluxe Joystick 'eecn 

26-3023 Cow Computer I 2 Disk Owe 1 2 or 3 

26-3024 cow Comput* Mutt. Pax mtertace 

26 3025 Cow Computer Mouse 

26-3029 Disk Or.ve lor me Color Computer 

26-3503 PC i Cassette interface 

26 3508 PC 1 Carrymg Case 

26 3608 PC 2 Canywxj Case 

26 3612 PC 2 HS232C lme>1ece 

26 3615 PC 2 4« RAM Module 

26 3616 PC 2 8K RAM Module 

26-3651 PC 4 Cassette mtertace 

26-3653 PC 4 IK Ram Module 

26-3654 PC 4 Carry™ Case 

26-3804 Mode 100 AC Adept* 

26 3805 Moo* ix Acoustic Coupler 

26 3809 Moo* *X Carrying Case 

26-4154 Mod* 12/168 Internal 15Mb Hard Disk ■ ' 

26-4155 Mod* 7'3/4 12/16 *5MD Primary Hard Orsk 

26 4156 Moo* 2.3.'4.'2.'t6 '5Mb Secondary Orve 

?6-4'57 Mod* 2 12 " 

26-5H1 Mod* 2000 

26 5112 Mod* 2000 CM i Color I 



FURNITURE 



■^ i JO', MOW 3-4 System Desk 

26 1306 ijr"-.><s..i Pnmer Stand 

26-1324 Computer Tab* 

26-1325 P*aT*omi -o» 26*1324 

26 4303 Detune System Desk 

26-.305 Defcj>e Pnnter Stand 

26 4306 Term-T* Stand 

26-430? P-ante* Stand 

26 5H5 Model 2000 Peoest* 

26 51 16 Model 2000 Hoc- Stand 

M-055' DocuRac* Stand 



PRINTERS & ACCESSORIES 



26-1 '90 
26-H92 
26 '196 
26 1250 
26 1252 
26 1254 
26-1255 
26-1257 
76-1261 
261267 
26-1268 
26 1269 
26-'270 
26-1271 
261274 
26-1275 
26-1276 
26-1277 
2*-t«e0 
26-1441 
26-1443 
26-1447 
261448 
261455 
261459 
261401 
261408 
261409 
26-4401 
26 1490 
261491 
261492 
761493 
261495 
261496 
261498 
261499 
263505 
263591 
263605 
26 3652 



Ploner 

GCP-115 Cow Graprvcs Pnnt* 

GT-M6 Graphics Pea 

DWP4I0 Dersywhea P-imer 

DMP500 220OPS P-nt* 

OMP200 I20cps Prxiter 

OMP 120 i20cps Dual Mode P™i* 

OWP-210 Oersywhe* Pinter 

T P to Thermal Metnx Pint* 

OMP420 '40cps Triple Mode Pnnt* 

CQP-220 Color Ir* Jet Printer 

PTC-64 64K Pnnler CettaNasV (Bune-I 

NMflOWPSiO Dasywhe* pmter 

DMP-110 50CPS Tnpej Mode Pnnt* 

OMP2I0OP I60CPS Dual Mode Pnnler 

NMrlTRP 100 Pmter 

►■WIDMP105 Hew cneeep Pentw 

Wei DMP-4J0 f*«w Not So Cneeep Pknter 

Single &** Sheet Feeder lor DWP 2100 

Bi-Directwial Tranor tor OWP-2100 

Bi-Dkection a i Tractor for DWP-210 

Bi-D»ectwMI Tractor lor Dersywne* a 

Seigei Bm Sneei Cead* lor Dersywne* « 

AcousK Cover 

Bi-OirectKin* Tractor lor DWP-410 

Model i;3,'4,'4P Pnmer Cane 

RS 232C Cena 

Mod* 100 Pmter Car* 

Mod* 2'12/16/2OO0 Preiser Cat* 

10 RS-232C Cataa 

25 RS-232C CaUa 

50 RS-232C Cetae 

100 RS232C Catea 

RS-237C Cam EnerMer 

RS-232C Nul Modem Adapter 



C.ITOH 



"*P*« 



65'OePI I20cp*4 Fncc Tracior 

65'OSP hoi Dot 'SQcOT Re* Fast 

85'OSCP Colo' M-jr SoewJ pr-nt-B* 

1550P PrDw.te' 2 I20cp* <o/ woe 

1550SP Mot Oot 'BOcps Real Fasi I 

Ft0 40 Stewwniiy eJOrps Dais-rwheet 

MOSS F^ntmast^ 55ci» Da«sywfieet FAST 

F 10 B.D*ert-on» T ractor w.tn Ptast-c Covw- 

F10 E»ect"c Smgle B-n Sheet Feede- "-si Requ--»w 

mo Mecnan-cai S^ie b-i SNiet *eeoe' 

GX '00 Gor-la Banana SOcps 



AN ADC X 



'972SR 240cp>. Co 



CABLES 

We '^anu'actu»«* a ijreai numoer o' o«'te«en. 
10 conneel mosr eaf^ttwig lo anytfwng e<« < 
specifc needs We p>ooaWy nave if on me y-ej 



:at>e -,5ser**»*5 



SUPPUES 



25 SSDD Diskettes Pack 

IS DSDO D-skettes Peck 
SSOO Diskettes Pack ol 10 l Yea- Guarantee 
OSOO Drskenes Pack ot 10 i ■>,-.. Guarantee 

25 f-kpson Holds 75 Disks 
Fkpsort Holds 50 OVsks 

S >ii Tiacto- Pap* 20JB 2900 Sheets 
,ii Tractor Pap* 20«> 2900 sneers 

25 or 8 Head Cleaning Ktl 



RIBBONS 



MONTEZUMA'S REVENGE 

GREEN or AMBER MONITORS 

MorJernt7e your lired oW Mod* 1 with a snappy new 
12 hjoh-resolution video monitor with your choce Ol 

a Anti-Glare slow decay green or medium decay 
European Amber screen Made with Lead/Strontium 
impregnated frosted glass GUESS WHATM Trie CRT 
from if»$ monitor also tits the Model 2 3 and 4 and 
is brighter than ine me more expensive Langley- 
Si Clair -replacement CRT just take the tube out ol 
W« new monitor and replace your existing CRT Then 
insiaU your old B&vv CRT oto the new monitor and 
end up with a monitor you can keep or sell Why spend 
an thai money lor |ust a new tube Guaranteed tor a 
lul year Model 1 cable avaaabte on request at no 
charge 



MONTE't SPECIAL PRICE. 



$79 



SOFTWARE 



v.-r i 4 Ratao Shac* pokry I 

DackaoM co-ken dqks w •■ modaH Ookonai oaks ara ■ akarn at 

•kel cha-ot Bv «u-« ki ask io- cetaar wrw* vou crd* 

NC Wt CP/U 2.2 by Monteruma Mcro f& The Mod* 
Rated Dest by ectu* lest Get the good one 1 

NCWI H*d Disk Dnv* with Backup 6 Restore 
260310 TRSOOS 23 For Tne Mod* l 

260312 TRSOOS l 3 For The Mod* 3 

260313 'RSDOS 6 > For r he Mod* 4 
26-0315 IRSOOS 6 2 UMrty Disk 
260316 TRSOOS 6 2 Oak Ooc Re' Card 
26-0413 NEW! Disk D-rve Anvyier Why pay more' 
26'507 Mod* 1,-3 Stooxpafc 

261510 Mod* t/3 Trendex 

76 • 5 1 1 NEW! Mod* 3 Home Accountant 

261512 Mod* 4 Tvoel FSannerCalc 

261513 HIWIMoo* 1/3 Cass Spectacuieior 

76 1514 NlWtMod* 3 Pvjrrloho Managw 

261515 ptstae lor Mod* 3 

261516 pis report lor Mod* 3 

261517 pfsreport lor Mod* 4 

261518 pfstei lor Model 4 
76 1520 Mod* 4 VeaCalc 

261521 Mod* 3 ViaCalc Busoess Fo<ecasi 
26 1527 NEW! Mod* 3/4 Formetwi 
761530 Mod* 4 Muttoar 

261538 NEW! Mod* 4 Apartment Mariegernent 

261539 N1WI Mod* 3/4 VV-2 Writer 
26- '540 Mod* 3/4 Genera Ledger 
26<541 Mod* 3/4 Accounts Recervaoai 
26*542 Mod* 3/4 Accounts Payable 
261543 Moo* 3/4 Payrrja 

26 1544 NEW! Mod* 3/4 invoice Writer 

26 1 545 NEW! Mod* 3/4 mveniory Contra, 

261554 Mod* i,-3 Accounts Payable 

261558 Mod* 1-3 Business Me-ang Lot 

261559 Mod* t/3 Manufacturing Inventory Control 

261560 Fixed Assets 
261562 Mod* 1/3 ProNe 
26 1563 Mod* 1/3 SCRIPSIT 

261564 Mod* 1/3 Maagram 

261565 Mod* 1/3 Mwotee 

261568 Mod* 1/3 Medea once Systems 

26 1569 Mod* 3 vwCeK Erataftced Varum 

26-1577 Mod* 1/3 Surveying 

26 1579 Mod* 1/3 Re* Estate 

26 1580 Mod* 1,-3 Protect Manegar 

261581 Mod* 1/3 Personn* Maneg* 

261582 Mod* 1/3 Tane Maneg* 

261584 Mod* 3 Cheokwnt* 80 

261585 k4od* 3 rsvrsrness Checkwreer 
261588 Mod* 1/3 Vidaotea Plus 
2615(9 Mod* 3 MICtTO/Coun* 

26 1590 Mod* 1/3 SuperSCRIPSlt 

26-1591 Irforj* t/3 Sonpert 0*ct*onary 

261592 Mod* 3 Protaa Plus 

261593 Mod* 3 Profae PU LDOS/HD Version 

261594 Mod* 3 Desktop/Plan 80 
26-1595 SoparSCRIPSIT For Tha Mod* 4 

261596 SCRIPSIT For The Moo* 4 

261597 Mod* 3 Buarnees Grepracs Pat 

261598 Mod* 4 VOaoaax Plus 
261600 Dtcftonery for ate Mod* 4 
261630 NCWI TK' Sober lor (he Mod* 4 
261635 NCWI Mod* 4 ProMe 

261922 Mod* 3/4 o-enwu. 90 

262011 Mod* 1/3 EDAS. Tape venaon 

262012 3/4 Asaairray Language Oevel op riw/il Course 

262013 EOAS. Disk Versron. Mod* 1/3 
262015 Mod* 3 m a truckon Tapes 

262017 Mod* 3 Asaembty Language Course. Tape 

267018 MOO* 3 AssemMy Language Course Dark 

262019 HEWI TRSOOS 6 > Trarang Course 

262022 Power Too for the Moo* t/3 

767023 Oot Ploi lor the Moo* 1/3 



262190 Moo* 4 COBOL is 

26 22O0 Mod* 3 FOR T RAN | 

26 2201 Moo* i FORTRAN a 

26-2203 Moo* l 3 COBOL irj 

262204 Mod* 1 3 Compa* BASIC IS 

26 2205 Micro Pll Ol J 

26 22'0 Mod* 3 BASCOM >6 

26 221 ' Moo* 3 Akw PASCAL 21 

262212 Ator PASCAL for 'he Mod* 4 21 

26 2213 Mod* 1 LOOS .LSI verswii 6 

26 2214 Mod* 3 LOOS uSI ve-swii a 

262216 CPrM Pius Fa Tie Mod* 4 2 
26GOOD the Good CP;M 'o- me Moo* *Montetuma' 19 
26-REAL GOOD Had Disk Driver lo- MM CP-M 3 

262217 CBASiC Foi The Mod* 4 (Requires CP'M. 8 
26 2218 BASCOM lot the Mod* 4 16 
26 2219 NCWI FORTRAN lor the Mod* 4 | 
26222023 v^eote. J 
26 2224 Compuserv.'Oow Jones S-gn-uo Kn 1 
26-2230 NCWI Mod* 4 C Language 2> 
262231 NEW Mod* 4 Double Duty H28K req | 5 
262619 MOO* 3 Corpu>n 4 
262718 Mod* 3 P1LO' 10 
262721 CoW Computo- LOGO L»sk « 
26 2722 Cow Compul* LOGO ROM Pec.k 4 
26 3030 OS 9 Fo- Ine Cow Comput* ! 
26-3036 BASIC • 09 Fo- Ine CoW Comput* 8 
26 3038 NEW! C Compeer 'o- me CoW Comput* 8 
263821 Mod* 100 uearrvng Lab 2 
26 3829 NCWI Mod* 100 Murtwan <2 
26-3830 Mod* '00 Scr»»l J 

ALL CeMr Computer GAMES 25N OFF Catalog Price 
ALL F*C<y08l SOFTWARE 301; 0" Catalog Pnce 

26-4501 Genera Ledger i 16 

264502 Inventory Managemeni Systerr ; 16 

26 4503 Payroll 33 

264504 Accounts Receivable 25 

26 4505 Accounts Payable 25 

264507 Maang Lol H ic 

26 4508 Medica Olhce Syslems 63 

26-4509 Manufacturing Inventory Conlro 63 

264510 versalae 5 

26451! vweae 25 

264512 "...'*■ ■ 15 

264513 Job Coshng 12 

264514 Oder Entry 16 
26-4515 Prolet il Plus 25 
26 4516 ProMe 'r*rvng Gikde S 
764517 Profae Plus upgrade 10 
26-4520 fane Accounnng 42 
26 4521 Er-hanced vrsiCaic 25 
26 4526 V4iCalc Business Forcasiinq • 
264531 SCRIPSIT 20 33 
26 4532 SCRIPSIT uwrly Disk 10 
26-4534 SCRIPSIT Dtcnonary 16 
26-4536 SCRIPSIT Plort* Dmer * 
26-454C Stanstc* Analysis • 
264545 Uttoaeor Support 25 
264550 Business Graphics Analys-s Pak 21 
26-4554 Accounts Recervaue 4 
26 4555 Menu Generator J 
26 4556 Profae Forms 10 
26-4557 P-ofee Archive 4 
26 4558 P-ofaa Proson 12 
26 4559 P-.»«* 16 
264560 WESTLAW 21 
264580 MunPlan Mod* 2'I2 21 
264601 Genera Ledg* 33 
26 4602 inventory Control System 25 
26 4603 Peyiol 42 

264604 Accounts Rece-vabte 33. 

264605 Accounts Peyabte 3> 
264607 Order Entry/ICS » 
76-4606 Saws Analysis 21 
264612 NEWIOuery COBOL 12 
264620 NEW! Pieced*il 67! 
26 4621 Personn* Search 25 
26 4701 FORTRAN 25. 
264707 EDAS 16 
26-4703 COBOL 25- 
26-4705 Compa* BASIC 16 
264707 COBOL Generator 591 

264710 Progrem Edeor 6 

264711 NEWI PASCAL M- 36 
76-4712 A^aernUy Language Development System 21 
264713 EDAS I 4* 
264721 Vrdeotex For The Mod* 2/12/16 4; 
264725 NEWI BASCOM BASIC Compa* '61 
26-4740 CP/M Plus 211 
76-474? en A. si." a. 
264802 
26-4831 
26 4834 
26-4*35 



26 5210 
765712 
265213 
265214 
765215 
765217 
265218 
265251 
265252 
265255 
265256 
265257 
265260 
265261 
26 5276 

265279 
765300 

265301 
265302 
265305 
265306 
265307 
765309 
26-5311 
26 5314 
265330 
265340 
265352 
265376 
265377 

266100 
266201 
266203 
26*204 
266205 
266207 
26-6208 
26-6209 
266302 
266309 
266401 
26-6412 
266415 
266431 
266450 
264)451 
266457 
266455 
26-8457 
2644M 



Invemory lor the Had Disk 
SCRIPSIT lor the Hard Disk 
Oartionary lor the Hard De* 
SCRIPSIT lor Ttarane Dnves 

ALL NEW MODEL 7000 GOOOCS 
NEWI Genera Ledg* 
NEWI Accounts Payable 
NEWI Aocounts Recervabte 
NEWI Inventory Control System 
NEWIOrd* Entry 
NEWI Purovaae Ord* 
NEWIPayrol 
NEWI BASCOM 
NEWI MS-OOS Assembt* 
NEWI FORTRAN 
NEWI PASCAL 
NEWI COBOL 
NEWI VKSSOks* Pmjs 
NEWISoftarm 
WWIGraptiwm* 
NEWI OR Graph 
NCWI ob Oraw 
NEWI Lotus 1-2-3 
NEWIOvatw Raong Software 
NEWI SupsrCeK 3 
NaTWIpfafae 
letWI pts report 
NEWI pts graph 

NEWI ptS Mt 

NEWIMunplan 



NEWI Munata 
NEWI Home Accountant 
WWIdBASE 11 
NEWI Witness 
NCWI PsaaatW 

MODEL 11 « 16 aeOOO tOETWAIW 
COBOL OevMopmem System 
Oener* Ledg* 
Payroa 

Acoounts Pvaoarvabat 
Accounts Payabta 
Ord* Eney/ICS 
Saras Araeyas 
Job Cu aw aj 

Manufacturing ICS 

XENIX DevewjmarM System 

ProMe lor XENIX 

Unity 

Scnpaa lor XENIX 

MACI6 Macro Asaamta* 

RM/FORTRAN lor Xanx 

NCWI PASCAL tar XENIX 

COBOL lor XENJX 

M6ASKC tor XEMX 

Musaaan. Mooa 16 t XENIX 



Ekactnc Pence I Moo* 1 13 69 

Hue Pence Mod* 1/3 6S 

Red Pence Moo* '.3 43 

Modem 80 A PowertU CommurvcatWM Program Ml. 3 3S 
Trecfcceaa lor me Moo* 3 the ongvsa copy program 29 

SUper Utiwt, Pk* J] nuns on Mod* 1/3/4 -,f 

CP/M OPERATING SYSTEMS 

CP/M 2 2 (of tne Mode- 4 The V€RY MST ONtr $ 169 

Our Very Own Tick H*trJ Os- D-i.i-- 

P-iis Rad* Sn*»cn s •* »ne Snade 30 

PAT CP/M 22m FlopOy Ve^-on Model 2.12-16 100 
P 4 T CP/M ? 2m For *"S Hard Drsfc Mode* ?'.2;i6 225 

BOOKS and MANUALS 

26 2'02 Mod* I Lev* II Menu* |5 

26-2HC Mod* 4 Techrkc* Manua 21 

242111 Moo* 3 DOS Menu* | 

76 7' 12 Mod* 3 BASK: kistructwi Manua i 

26 2' 14 Sourcebook New Eovnon 8 

76 71 15 Newstener Book 1980 4 

.'(,,"'■ Mod* 4 DOS Menu* IS 

26-2240 Newskytl* Book 1961 I 

262241 Newslett* Book 1982 11 

26 3*91 Cow Comput* Manua J 

263*92 Er-tenoed Cow Compute- Manua 3 

26-3193 CoW Computer 1 Tachnca Menu* II 

263810 Mod* 100 Techraca Manua ■ 

26 3819 NEWI Mod* 100 Book >t«i . 13 

26 4920 Mod* 2 Operators Manua 26 

264921 Mod* 2 Technical Reference Manua 26 

76-4922 Mod* 12 Operating Manual 59 

26 5403 Mod* 2000 Programmer s Manual 17 

26 5404 Mod* 2000 Hardware Manua 1 7 

26-6040 Mod* 16 Operators Manual 64 

26-6041 Model 16B Operating Manua 72 

62-2084 TRS-80 Pocket BASIC Handbook 6 

'RS Bo Disk 6 Otne- Mysteries « h c mver 18 

Microsoft BASIC Decoded -■ . - -.. - 24 

BASIC Faster 6 Barter ,. ..-., aaaw eai 24 

BASIC Faster 4 Better Oemonstratwi Orsk 15 

BASIC Fast* 8 Better L-brary Co 15 
BASIC Cask I/O Fasier 4 Better , , .. 
BASIC Disk I/O Oemonslration Disk 
The Custom TRS-80 a, c-.--, B .~. . .. 
IRSOOS 2 3 C«Kooed -.. ..■--. m •*• 
Machine Larvguage Disk I/O ■■ "— ^ . 
How Do It On The IRS 61] -. e*»- 1 
iRS 80 Beginners Guide 
Inside Super UtiMy Plus 3 a, — w. 



16K RAM 200 ' 



UPGRADES 



J12 



26 ''25 



Guarantee 

» 200 nsec 1 fun 'ea Guarantee 

'26ft RAM upgrade M wen Genuine PAL 7a 

Mod* 3 Hi-Resckjlwi Graphics Boao 165 

Moo* 4 Hi-Resokjtwi Grepfxcs Boao 225 

261127 Mod* 4 Onve Kit 444 

Same as above except our brand Save SSSJ 369 

Famous AEROCOMP DOC Ooubte Denary Coreoiw 99 

261145 Mod* 1 RS232 Board with cab*. 89 

Mod* 3/4 RS232 instaaaaor Kn was cable 69 

26-1162 Moo* 3 Onve XI 444 

Same as above except our brand Save SSSS 369 

26 1163 Radc Sheck 40 Track Orsk Dnve 203 

Same as above except 40 track ranoor Save tea '59 

MODEL 4 sethi S peedup Mod 89 

HOLMES Moo* 1.3 4Mhj Speedup Mod 109 

HOLMES Mcoe 3 vtO-80 complete wen 112ft RAM CP'M 

wen utames and SO • 24 v-deo Save »S»S 399 

263013 16ft RAM For MC IC Cow Comput* 42 

264104 Mod* 2 H^lesovtwi Grapncs Board 424 

64K RAM Board 339 

6 Shmane Double-side Dnve 359 

Mooa 2000 10Mb ti&ra Ovsk Krl 1555 

Mod* 20O0 H, Rescwulon Grapracs Boad 382 

Mod* 2000 Cow Grspf-ac Chp s* 169 

Mod* 2000 Mouse/Crock Board 102 

Mod* 20O0 interna 128ft Boad 254 

Mod* 2000 Exearna I28K Boao 424 

Mod* 2000 128ft RAM i.j. 265161 254 

NEWI Mod* 2000 Sen* Board 276 

Mod* 2 or 12 to Mod* 16 68000 Kit 764 

Mod* 16 128ft RAM Boad 339 

Mod* 12 I28K RAM tut 135 

Mod* 16 3-User RS-232 C*o 254 

Mod* 12 Cad Cage 175 



26-4105 
26-4167 
26 5125 
265140 
26-5141 
26-5144 
265160 
265161 
265162 
265164 
266010 
266011 
264)012 
26 6013 
768017 



We mantan an extensively eouppad aervce lecaty with a large 
stock of pens Gkve us a car. ic th* had-io raid item we i 
try end prcrnde whet you need 

BUY FROM US RIGHT NOW1 

Ox afivenrary <s so large ri c«n not be toted c o mptet e ry 
Ptease t/M <* you do no* aee whet you want Crtances are 
we r«va it Becaute of the time tag m rnagaztne advenis-ng 
prices are subfeci to change without note* and are ma- order 
onfy We are not reisponakUe (or typogn>h-tal errors Your 
compariy and/or persona, checks are welcome and wrf not 
delay your order We use Te**Oiec* Please oc«erve the 
fc*5wr>g recMfarrients and you order wfl be shaped wtthoui 
delay The check must be drawn on a USA or Canadian ban* 
and payable i US Ooaars It must be a bank printed check 
and conta>n your street address and T e lephone number The 
signature musi EXACTLY match the name pnmad on the 
check Than al there a to >t in eattbon. we accept Amencan 
Eoprass Mastercard. Visa. Cashaer % Checks. Wre Transtar 
and we also amp COD COO s and motor freight sn^ments 
may teou-re a deposit. Some speaai items reqmfe depoerti 
ALL COO s raquve cash or cuhters ci*teck on de-vary 
Cornpany and/or personal checks can NOT be accepted m 
payment ot COO sh^ments Cnsdn cards are not charaad 
Lamm we step your order aWM I Q CHaUMMEt AMI NOT 
MCLUDCO. Please add IS •wxJw.g to al orders totaang lees 
than $50 Add $20 r.andang charge to al orders GwarVoO 
shipped to Canadian addraaaas No State Sates Ta» 
coaected on out-ot-state »f*prnents H you order by 5«?M your 
order w« be snnped the N€XT 0AY rf stcck is on hand 
Respon«>*ty of vjrujoary o* software rests wflh the 
purchaaar Oue to (he nature of rrn bua-naaa thara are NO 
wunds on torrwAiic, INVLACCftKNTS WILL m 

INIOVnCO FO« DtSFtCTTVe SOFTWARE rTEM». provided 

wa are r*otiftad witten tan days c* oeAvary of the 
mercharKMe If you have a particular problem please cat. us 
for hefc> and inssrucaons 

WARRANTY 

Al eeme carry the ongm* manufacturars wa/ranty We wel 
be happy 10 maa you a copy upon request 

call roil mci *xo*' turwHCf in rue usa 

800-527-0347 
800-442-1310 



80 Micro, March 1985 • 111 



Reader Service Number 



Page Reader Service Number 



342 A.E.C 49 

166 A & J Micro 122 

374 ALPS 47 

170 APCA 115 

82 Aerocomp 86,87 

136 Allen Gelder Systems 95 

140 Allied Systems 119 

17 Alpha Products 14,15,17 

141 Anitek 23 

390 Applied Microsystem 103 

102 Armstrong Genealogical 66 

383 Astro-Star Enterprises 92 

152 BCCompco 115 

164 BMC Computers 127 

482 Blue Print Software 118 

186 Blue Ridge Software 76 

381 Bodex 99 

299 C.B. Microdex 103 

86 Compulogic 125 

357 Computer Friends 91 

18 Computer Plus 24 

282 DFW Computer Center 

49,107 

539 Desert Sound 92 

27 Design Software 67 

367 Digital Images 117 

204 Discount Data 55 

* Diskette Connection 125 

231 Dowling 119 

208 Dunnwrite Software 43 

216 EAP Company 53 

125 EC Data 62 

85 Educational Micro Systems 

43 

80 Micro 

Load 80 64 

Subscription Ad 48 

Subscription Problems 84 

45 Electric Webster 99 

350 EnFleur Corp 117 

172 Engineering Management 

119 

252 Engineering Programming 

49 

258 eSoft 76 

178 EZ Ware Corp 66 



Page Reader Service Number 



214 Fort Worth Computers 27 

214 Fort Worth Computers 123 

103 Good Software 127 

496 Good Software 126 

355 HDP 93,104 

9 H & E Computronics 

CIV, 13,63 

455 Hard Drive Specialists 59 

175 Howe Software 7 

46 Hypersoft 89 

425 Indiana Software Dev. Co. 

103 

373 Inmac 114 

148 Intelligent Technologies 

Corp 122 

101 J & M Systems 26 

126 J MG Software International 

2,3 

534 Jameco Electronics 54 

112 Joe Lynn Computers 77 

462 Langley-St. Clair 47 

250 Marymac 67 

111 McSystems 104 

* Micro Data Supplies 78, 79 

464 Micro Labs 109 

230 Micro Roots 117 

137 Miller Microcomputing 65 

107 Misosyslnc 47 

411 Montezuma Micro 36, 37 

416 Montezuma Micro 110,111 

* New Classic 90 

281 Nibblenotch 124 

232 Nocona Electronics 30 

54 Nodvill Software 119 

95 Northwest Computer 

Algorithms 61 

127 Noteworthy Software 109 

36 Omnisoft Research 101 

201 Optimal Tech. I nc 115 

151 Orion Instruments 99 

200 Pacific Software 

Consultants 66 

207 Pacific Exchanges .... 1 17, 1 19 

124 Perry Computers 73 

143 Perry Computers 72 

176 Personal Computers 53 



Page 



259 Personal Computer Book 

Club 33 

259 Personal Computer Book 
Club (Insert) 33A 

440 Personal Integrated Computers 

89 

290 Pickles & Trout 97 

306 Powersoft 43 

406 Powersoft 57 

249 Press A Software 84 

260 Pro/Am Software 124 

76 Producer, The 20 

449 Professor Jones/Frogg 

House 85 

248 Programmers & Assoc 101 

2 Prosoft 4 

8 Prosoft 51 

91 Prosoft 9 

30 Prosoft 10, 11 

75 Radio Shack/Tandy Cll, 1 

368 Safeware Products 94 

187 Scott Foresman & Co 89 

203 Scientific Engineering Lab 

84 

192 Software Concepts 107 

* Software Support 28, 29 

444 Southwestern Digital 121 

213 Standard Software 94 

506 Star Micronics 68, 69 

71 Sublogic Communications 

108 

150 Summit Software Tech 105 

456 Sunlock Systems 101 

285 Sun Research 94 

266 T/Maker Clll 

32 TVG Systems 107 

347 Talley Communications ...117 

81 Total Access 19 

227 Trisoft 98 

211 TSoft 117 

* Vespa Computers 71 

123 Wilson Technical Services 

93 

279 Zygotron 117 



For further information from our advertisers, please use the Reader Service card. 
*This advertiser prefers to be contacted directly. 



Advertising Sales (603) 924-7138 
or (800) 441-4403 



West Coast Sales (415) 328-3470 



112 • SO Micro, March 1985 



REVIEWS 



Continued from p. 35 

tion, the new documentation is written 
clearly and succinctly. 

Aside from the much-improved 
BIOS, the first major change you'll 
note is the absence of the now-famous 
interchange utility (INTERCHG). As 
good as INTERCHG was, it had seri- 
ous limitations (stepping your disk 
drives at 30 milliseconds, among other 
things). Montezuma replaced INTER- 
CHG with a disk format definition 
file. You can use this custom disk 
formatter with either the configura- 
tion (CONFIG) or disk back-up 
(DUP) utilities to easily format disks. 

CONFIG and DUP can access for- 
mat definitions from the default disk 
or from any other drive or file you 
specify. With CONFIG, you can as- 
sign any of the four logical floppy disk 
drives to any of the formats defined in 
the definition file. You can make these 
changes (as all others) a temporary or 
permanent part of your system. 

You write the disk formats in 
ASCII notation (using any text pro- 
cessor) so that they conform to the 
parameters prescribed in the CP/M 
disk parameter header and disk 
parameter blocks. 

Montezuma Micro's CP/M now 
supports over 40 disk formats, includ- 
ing both 40- and 80-track drives, single 
and double density, and single and 
double sided, and, as the documenta- 
tion says, you can "roll your own" 
formats. Montezuma also offers a for- 
mats-to-go service: If you send 
Montezuma a disk and the required 
format information, they'll return 
your disk with the updated disk defini- 
tion on it. 

The CONFIG utility provides the 
routine options that let you select var- 
ious parameters for the keyboard, 
printer, serial port, and input/output 
device assignments. It also lets you as- 
sign any single byte value to the arrow, 
clear, and break keys in either unshift- 
ed, shifted, or control modes. And 
you can assign a string of up to eight 
characters to the three function keys in 
each of the same three modes. 

In addition to the normal video con- 
trol codes used in Montezuma's ter- 
minal emulation, CP/M provides 16 
control codes not assigned a particular 
function. CONFIG lets you redefine 
these codes as duplicate functions of 
the 15 codes already provided. You 
don't have to change programs de- 



Montezuma's CP/M now 

supports over 40 disk 
formats, including 40- and 

80-track drives and 
single- and double-density. 



signed to work with another terminal 
emulation, all you do is redefine the 
control codes. 

Another useful utility provided is 
KEYDEF. If you don't want to rede- 
fine keys with CONFIG, you can use 
KEYDEF. For example, WordStar re- 
quires several special control keys. 
With KEYDEF, you can reassign the 
arrow, clear, break, Fl, F2, and F3 
keys. These assignments remain in ef- 
fect until you next cold-boot the sys- 
tem or until you run KEYDEF to re- 
turn them to the default values. The 
input to KEYDEF is a simple ASCII 
text file you can develop with any text 
processor. 

Hard Disk Drive Support 

This is the first version of Monte- 
zuma Micro's CP/M that supports 
hard disk drives. It supports Radio 
Shack's 5-megabyte drive (catalog 
number 26-1130), Radio Shack's 
1 5-megabyte drive (catalog number 
26-4155), and Percom's 5-megabyte 
drive (part number PHD5C3). In ad- 
dition to the drivers, you also get a 
patch to CP/M and a hard disk back- 
up utility. 

The documentation first describes 
the organization of a hard disk drive. 
This section provides a lot of infor- 
mation, especially concerning one im- 
portant feature of the system: Monte- 
zuma Micro's CP/M supports sharing 
the hard drive between CP/M and 
TRSDOS/LDOS. In fact, if you're 
creative, you can format a hard disk 
with all three operating systems co- 
resident. 

The step-by-step instructions are 
easy to follow and use two of the other 
utilities Montezuma supplies, MOVC- 
PM and SYSGEN. These programs 
create a larger resident area for CP/M 
to hold the hard disk driver, which 
needs an additional IK of memory. 

The hard disk driver contains the 
code necessary to format, partition, 
and assign the drives their proper logi- 



cal names. If you set aside the first 
head of the hard disk as drive A, the 
Model 4/4P can boot directly from 
the hard disk once you finish the con- 
figuration process. The driver will for- 
mat only the particular areas of the 
hard drive assigned to CP/M after 
positive confirmation of the order. 

You use the HARDBACK utility to 
back up and restore hard disk drives 
from the floppy drives. The options 
available include backing up the hard 
disk, restoring the hard disk, or check- 
ing the hard disk for errors. 

During a full back-up operation, 
HARDBACK compares the parame- 
ters for the hard drive and floppy disk 
you specify and tells you how many 
floppy disks you need to format. This 
is a nice touch. It's a real pain to be 
almost through backing up one of 
these drives only to find out you've 
depleted your supply of previously 
formatted disks. 

HARDBACK also supports an 
archival back-up feature using the 
archive (or modified) attribute bit 
CP/M maintains. This saves you time 
when you've modified only a few files. 

The last part of the hard disk sup- 
port is CPMFIX. If you've never seen 
a 5 megabyte disk directory, imagine 
792 files scrolling across your screen, 
four per line. This will rapidly try your 
patience. 

CPMFIX implements standard fea- 
tures in the CP/M system used to 
solve this (and other) problems. To ef- 
fectively use a hard disk drive, you 
must segment the logical drive into 
various user areas (numbered zero 
though 15). 

This, however, creates a problem in 
determining the current user area, 
since CP/M normally doesn't display 
this information. And you can't easily 
access files in other user areas. Every 
user area would need its own copy of a 
utility. 

CPMFIX patches the console com- 
mand processor to allow a visual dis- 
play of the user number with each 
command prompt. It also adds code 
to the system to allow those programs 
in user area zero to become available 
to all other areas. The last modifica- 
tion alters CP/M to honor the archive 
attribute bit. 

Conclusion 

I was pleased with this implementa- 
tion of the CP/M system; it offers 



80 Micro, March 1985 • 113 



REVIEWS 



some handy improvements over Mon- 
tezuma Micro's previous version of 
CP/M. If you want to open your 
world to the vast software base avail- 
able for CP/M, I think this version of 
CP/M is a fine way to do so. ■ 



Let There Be Music 

by Gary A. Ludwick 

Radio Shack has good news for all 
you closet Van Halens, Bachs, or 
Coplands: You can turn your Model 
III or 4 into a music synthesizer to cre- 
ate, load, play, edit, and save your 
own compositions. Orchestra-90 pro- 
vides a complete hardware and soft- 
ware system that, when connected 
with your home stereo, turns your 
computer into an electronic orchestra. 
If writing or transcribing music isn't 
your forte, there is a Special Interest 
Group (SIG) on CompuServ, Orch-90, 
that has hundreds of songs you can 
store and play back. All you have to 
do is download them. Whichever way 
you use it, Orchestra-90 is an excellent 
value at its price. 



Overview 

Orchestra-90' s hardware comprises 
a two-channel stereo pre-amplifier 
that attaches to your computer's 50- 
pin input/output bus. The leads from 
the pre-amp go directly to the tape or 



Orchestra-90 Stereo 
Music Synthesizer 

***** 

Tandy/Radio Shack 

One Tandy Center 

Fort Worth, TX 76102 

RS #26-1922 

Models III and 4, 16K RAM 

Cassette and/or disk drive 

Stereo system 

$79.95 



Easy to use? 


****# 


Good docs? 


***** 


Bug free? 


***** 


Does the job? 


***** 



Circle 373 on Reader Service card. 



Free Catalo g! 

Your 80-page guide to computer supplies and 
accessories-including complete 
new product descriptions. 




Packed with over 1600 products lor microcomputers, minicomputers, 
and word processors - many available nowhere else. 

I Big special section devoted to new supplies and accessories 

■ Comprehensive product descriptions - includi ng more than 475 
Ml-coioi photos - deafly explain features and benefits. 

■ Easy-lo-use cross reference guides to magnetic media, ribbons, 
and more-along with the industry's most complete cable guide 

■ Helpful suggestions and tips, ranging from flexible disk 
care to proper ribbon selection to useful application ideas 

Phone toll-free 1-800-547-5444 

In California, call 1-800-547-5447 



r 
i 

i 



MfflOD photw toll-free 1-800-547-5444 * or semi coupon today. 



Inmac Catalog Dept 
2465 Augustine Drive 

Santa Clara. CA 95054 

Please rush Tiy free copy of 
the Inmac Catalog I under- 
stand there is no obligation 

whatsoever 



NAME 



COMPANY 


AOOfltSS 


CITV 


STATE 


ZIP 


PH0NI 



o 



"h California call 1- 
114* 80 Micro, March 1985 



0-547-5447 



auxiliary inputs of your stereo. The 
package includes the patch cords as 
well as a set of torroid coils to elimi- 
nate radio frequency interference. In- 
stallation is a snap, taking only about 
10 minutes. 

Orchestra-90 comes in two versions, 
one for straight cassette use and one 
for transferring the cassette programs 
to disk. I would rather that Radio 
Shack charge an extra $5 for a disk 
version, to avoid the hassle of wiring 
up a cassette to make the transfer. 

The Orchestra-90 package includes 
a 74-page manual that is refreshingly 
well done. It makes the assumption 
that you know nothing about music or 
musical notation, and then leads you 
through song creation step by step. 

Musical Bask 

Remember your first attempt at Ba- 
sic programming, how you sat there 
with the manual in your lap, trying to 
memorize syntax, functions, and error 
messages? If you recall that experi- 
ence, creating and transcribing music 
on Orchestra-90 will seem familiar. 

Using Orchestra-90 is really like 
learning a new programming lan- 
guage: It has its own syntax, symbols, 
and error codes (see Figs. 1 and 2). 
The program designers have created a 
new computer language that translates 
every aspect of musical notation into a 
form you can enter from your key- 
board, without learning any music 
theory. 

In Fig. 2, for example, you can see 
how every note on the bass and treble 
staffs has been assigned a number or 
letter code. If you were transcribing an 
existing piece of sheet music, all you'd 
have to know is the note's position on 
the staff and the Orchestra-90 code as- 
signed to that position. 

In addition, Orchestra-90' s coding 
system accommodates other musical 
symbols: sharps, flats, syncopation, 
meter, articulation, measures, and re- 
peats are all predefined. For further 
flexibility, you can produce harmonies 
in up to five voices (five notes played 
simultaneously) and you can assign 
one of five instrument sounds (trum- 
pet, oboe, clarinet, organ, or violin) to 
the notes. 

Making Orchestra-90 Work 

It would be easy for you to be intim- 
idated by this program. But the truth 
is that those who have no musical 



Circle 170 on Reader Service card. 



Circle 201 on Reader Service card 



REGIT 

THE COMPLETE CASH REGISTER AND 
INVENTORY CONTROL SYSTEM 




HARDWARE FEATURES: 

• Heavy duty 15.6 'W x 166"L x 4.4 'H metal cash drawer. 

• Locking drawer with removeable money tray. 

• Drawer works automatically or manually — connects directly to cassette 
port. 

SOFTWARE FEATURES: 

• Assign code numbers to your merchandise or services — You enter the 
code number, the screen displays price and item, then updates inventory 
and sales records. 

• Calculates subtotals, totals, sales tax (if applicable), and change 

• Screen displays in double size characters for easy viewing. 

• Will maintain inventory and sales records for over 3000 items (with two 
disk drives). 

• Produces daily, monthly, and annual inventory, sales, and tax reports 

• Totals by employee/cashier 

• Printer generates sales receipt 

• Cash drawer opens automatically. 

• Straight dollar entry cash register program available for tape systems. 

TRS-80 Model III or IV Disk $179.00 

TRS-80 Model III or IV Tape $169.00 

please specify model when ordering 

Calif residents please add 6% state sales tax 

check or money order to: 

APCA Systems • P.O. Box 978 • Arbuckle. CA 95912 

for COD orders (916) 476-3356 

'TRS-80 is a trademark of Tandy Corporation 




EPROM PROGRAMMING SYSTEM 
For TRS-80 MODELS I, III, OR IV 

1 . Program contents of buffer to EPROM . 

2. Verifies contents of buffer against EPROM 

3. Reads contents of EPROM to TRS-80 buffer 

4. Checks if EPROM is erased. 

5. Displays contents of buffer. 

6 AWty to edit buffer from TRS-80 keyboard. 

7. Reads both prom image and command files from disk. 

8. Stores prom image files to disk. 

9. Fast program mode for duplicating EPROMs. 

10 . Software sets up programming parameters from EPROM type 

MODEL EP-2A-79 EPROM PROGRAMMER, TR-24 parallel interface, disk software 
(specify TRSDOS or CP/M). and personalty module PM 5 for programming 
2716.2758 EPROMs $225.00 

Personalty modules available for 2708. 2716, TMS27 16. 2732.2732A, 2532. 
2764, 2564, 27128, and MCM68764 EPROMs: 2816A EEPROM; 8751. 
38E70 MPU $17 TO $35. 

Optimal Technology 

Earlysville, Va 22936 
804-973-5482 



Circle 152 on Reader Service card. 



NEW PRINTERS ADDED! FIND YOURS BELOW. Q|DQA|1 C Al C EXACT REPLAC 

Good Th, s Month niDDwn omlc 

RADIO SHACK • CENTRONICS • COMMODORE • EPSON • ANADEX • BASE 2 • IBM • NEC • C ITOH • DEC • OKIDATA • OTHERS 



EXACT REPLACEMENTS 



PRINTER 

MAKE. MODEL NUMBER 
iContaC us il you' pr. nler is 
nol listed We can probably 
RELOAO your old cartridges I 



BASE 2 DIP 81/82/64/85 - MPI 88/99/GX 



C ITOH Prowrltar 1550/8510 NEC 8023/8025 



C ITOH Slarwrltar F10VCARBON FILM BLACK 
DIABLO HYTYPE II A FABRIC BLACK 



OKIDATA PACEMARK 2350-2410 Black 
_ •MJCROLINEML80/82/83/92/93 

RADIO SHACK^\_MICR0LINE ML84 

CARBON FILM ■ DWP-210 Black (1445) 

DAISY WIIDWP-410-510 Black (1419) 

Red, Qraan, Blue, Brown Colors (1419) 

FABRIC (Long-Llfa) DWP-210 Black (1458) 

DAISY Wll-DWP-410/510 Black (1449) 

LPI-II-IV CENTRONICS 730/737/739/779 (1413) 

DMP-200,120,430 (1296) (1483) 

DMP-500 (1482) 

DMP 2100 TOSHIBA P1340.1350.51 (1442) 

OMP-100, LP VII Commodore 1525. Gorilla Banana (1424) 

LPIII-V (1414) 

DMP 400 /42 0, LP VIVID ( 1418) 



EPSONLQ1500 

-MXJFXmX 70/60 IBM PC 

MX/FX/RX100 IBM P C 

COMMODORE 8023P - CENTRONICS 152-2 



ANADEX 9000 Series 



RIBBON 
SIZE 

inches 

by 
Yards 



INSERTS EZ LOAD- 
drop in NO WINDING 1 

EXACT REPLACEMENTS 
made in our own shop 
cartridges not included 



$15/3 $54/12 $288/72 



$15/3 $54/12 $288/72 



$24/6 $42712 $234/72 
$ 21/3 $78/12 $510/7 2 
$36/3 $132/12 $720/72 



$15/3 $54/12 $288/72 



$15/3 $54 /12 $ 286/7 2 

$ 15/3 $54/12 $286/7 2 

$ 1 5/3 $54/12 $268/7 2 

$ 15/3 $ 54112 $ 266/7 2 

$ 1 8/3 $6 6/12 $ 360/72 

$15/3 $54/12 $288/72 



$18/3 $66/12 $360/72 



RELOADS 

you SEND your used 
CARTRIDGES to us We 

Put OUR NEW INSERTS 
m tnem 



$6 M 2 or mora 



$6 •■ 2 or mora 



$7/1 

$7/1 

$5ea3-11 $4 ea 12 or mora 

$8/1 $7 — 2 o r mora 

$20/1 $16»a2o.mof% 




NEW CARTRIDGES 

llrom Ine various 

manufacturers Subyect 

to availability * > 



$20/2 S57/6 $ 99/12 



$15/2 $42/6 $ 78/12 



$18/3 $60/12 $348/72 
$18/2 $51/6 $ 96/12 



$32 Each 



$7/1 



$6 ea 2 or mora 



$7/1 
$7/1 
$7/1 
$7)1 
$8/1 
$7/1 



$6 >a 2 o r mora 
$6 aa 2 or mora 



$6 •• 2 or mora 



$6 aa 2 or mora 



$7 aa 2 or mora 
$6 aa 2 or mora 



$8/1 



$7 aa 2 or mora 



WORRIED ABOUT ORDERING BY MAIL? Ralax. Wa'va been in business tor many yaars and can plaasa tha smallasl and largast ac- 
counts. You leoeivo soma ol Hie finest ribbons available made ol our own exclusive IMAGE PLUS + "" tabric and carbon film. Our rib- 
bons fit your printer exactly. COMPARE, but BEWARE! We order all our competitor's products and are amazed at what we gel. We use 
the litest sl»te-o1-th%.»it production equipment and are blessed with a tine, dedicated statt. VVe guarantee everything we meke. 
period. Our ribbons are made fresh daily and our goal is to ship your order within 24 hours. Write for our brochure and price list. 



-BiCm 



$15/2 $42/6 $ 78/12 



$16/2 $48/6 S 96/12 



$15/2 $42/6 $ 78/1 2 
$15/2 $42/6 $ 78/12 
$22/2 $63/6 



$14/2 $38/6 



$ 120/12 
$ 66/12 



$18/2 $51/6 $ 96/12 



SILVER DOLLAR 

WIND lo LOAD 
WHY DO WE SELL THESE'' 
This is the type ribbon you 

gel it you order trom Our fe>( 
low advertisers We sell them 
• or less since we make them 
ourselves Do you really tike 
the mess and inconvenience 
01 unwinding and dumping 
this lype ribbon into a waste 
basket or out on a newspaper 
and/or winding it into your 
cartridge'' We don i know why 
these are Demg sold Com 
puters should Simplify your 
lite, not make it more com 
pie> us: to save a few pen 
nies You are welcome to 
order these *' you cannot at 
ford Our EZ LOAD'™ IN 
SERTS RELOADS Or NEW 
CARTRIDGES But BEWARE' 
You now know how to avoid 
disappointment One more 
caution be sure to check the 

length ot any ribbon BEFORE 
you buy it For instance, an 
MX 100 ribbon should be 30 
yards long, not 20 as in the 
MX80 

$1 2/3 $44/12 $252/72 
$11/3 $40/12 $228/72 



$12/3 $44/12 $252/72 



$15/3 $54/12 $288/72 



SEND CHECK. MONEY ORDER. OR C D (J3 001 TO: 

BCCOMPCO 

800 South 17 Box 246 

SUMMERSVILLE. MO 65571 

(417)932-4196 

WE PAY UPS SHIPPING on PREPAID ORDERS 

PLEASE INCLUDE STREET A00RESS for UPS 0ELIVERY 

FOREIGN ADD '5% U S FUNDS 



80 Micro, March 1985 • 115 



REVIEWS 





Musical 


Note Symbol 


Note Name 


+ G 


E 


+ F 


D 


+ E 


C 


+ D 


B 


+ C 


A 


+ B 


G 


+ A 


F 


+ 9 


E 


+ 8 


D 


+ 7 


C 


+ 6 


B 


+ 5 


A 


+ 4 


G 


+ 3 


F 


+ 2 


E 


+ 1 


D 





C (Middle C) 


-1 


B 


-2 


A 


-3 


G 


-4 


F 


-5 


E 


-6 


D 


-7 


c 


-8 


B 


-9 


A 


-A 


G 


-B 


F 


-C 


E 


-D 


D 


-E 


C 


-F 


B 


S 


REST 


Figure I. Orchestra-90 note conversion 


chart. 





training often learn Orchestra-90 
easier than people with a musical 
background. The reason is simple: All 
you have to remember is that a note at 
a particular place on the staff is zero. 
To me, that note is middle C, which I 
then have to translate to a pro- 
grammed zero. Orchestra-90 codes all 
other notes relative to middle C's zero. 
Programming in Orchestra-90 is 
just like programming in Basic: You 
have to follow certain rules. With a 
couple of weeks of practice, Orches- 
tra-90 will become as second nature to 
you as Basic is to many people. 

Unusual Program Support 

Although Orchestra-90 is relatively 
new to Radio Shack, the program was 
previously available from Software 
Affairs (under the name Orchestra-80 
and -85). For the beginner, this is good 
news, because on-iine help is available 
through the Orch-90 Special Interest 
Group on CompuServe. 

I mentioned earlier that Orchestra- 
90 could store and play songs. The 
Orch-90 SIG offers nearly 400 already 
programmed titles ready for down- 
loading. Also, a number of other boards 
around the country feature music down- 
loads for the program. 

Best of all, you'll have access to ex- 
perts who have been working with this 
system for some time, including the 
program's author. My inquiries on the 




r*£@ 




^^ 



m^ 



^^ 




=^l 



I 



OT 



i^ 2 



Se 



— ^0& 



Figure 2. Orchestra-90 music language scale. The small letters above the notes represent the 
musical scale. 



SIG always resulted in quick and 
knowledgeable replies, and the down- 
load menu has an incredible variety. 

Conclusion 

Orchestra-90 in an intriguing piece 
of work. 

Compared to other music systems 
on the market, Orchestra-90 stands 
out with its capabilities and the quality 
of its output. It does require you to do 
some work and to practice to become 
truly proficient with it, but so does Ba- 
sic or learning the guitar. If you have a 
yen to try your hand at playing or 
composing music, Orchestra-90 is a 
good introduction. ■ 



Spell Bound 

by Terry Kepner 

Model 4 owners plagued by typos 
and neologisms, take heart. 
Cornucopia Software has introduced 
Electric Webster, their well-known 
spelling checker program, for the 
Model 4 under TRSDOS 6. 1 or Model 
4 DOSPLUS. Electric Webster pro- 
vides a fast, efficient way to check and 
correct spelling errors in text files. 

This new version of Electric Webster 
features special modules that customize 
its operation for use with the AUwrite, 
Lazy Writer, LeScript, and Scripsit 
word processors. These modules let 
you invoke the spelling checker from 
within your word processor and then 
return to the text after Electric Webster 
checks the document. The modules 
also make allowances for the special 
formatting commands in each of the 
word processors so that these com- 
mands aren't included in the word 
counts given during the checking 
process. 

Unfortunately, these special mod- 
ules don't allow Electric Webster to 
check the word processor's formatting 
commands for errors. For example, 
AUwrite uses a semicolon at the begin- 
ning of a line to indicate a formatting 
control command. When Electric 
Webster encounters the semicolon, it 
skips the rest of the line. Any spelling 
errors in the commands remain unde- 
tected. Since Cornucopia programmed 
the modules so they don't count for- 
mat commands as words, the manu- 
facturer could additionally have had 



116 • 80 Micro, March 1985 



Circle ^}<i c-\ K««a»!- s«»if:o r.a r c 



- •= .s. 



Circle 230 on Header S» 



PRINTER OWNERS 

Letters ar? t.\ i\w<) In i.-on.i t.ijuLu husib 
from customers saying how much they rtullv 
enjoy receiving our lists. 

It v pr<,|- ili\ -..it.' :■-.• 5 jy that tnr< p-i, .■ h-s 
r- i.-.: In ;•■ ir« :il:t/'.i [ trom niu': . -f 'In- 
others. Maybe it's the chatty folksy style of 
;<.r:i::i_; : ' ivrhap- i! - :\\>- lnu ■: ::n>st ..•••>_■ 
lie v able, pnf.es on [»rr h-i < irt:n!<j» - : ' Again. 
it could be dealing with a dealer that under 
-I.'.rii:. :ht> hobK l"i.vi;i i!.': user <ir.<: ri'dlli, 
DM jbout whal pOU think'' 

Send your name and address today for a 
rather fat envelope ol pnr.ter and computer 
n-lrtti ■■': offer- 



ZYGOTRON 

PO R.,x27 

I li"tllll.* Mh Tl.'J.JI >1'HL' 



_J 



r,u r. .T7 >r- -l-acer jCYiCe .j.l 



\ferbatim 

flexible disks 

Cai: Free (800) 235-4137 foi 

prices and information Dealer 
inquiries ir^ireJ. (.'. O D and 
chat ye cards accepted 




PACIFIC 
EXCHANGES 

I'M. ( ,-| || HI.:: 

San Luis Obispo. CA 
•'.<■•.( '1 1-iCnl :a.i 
(800) 592-5935 or 
(805) 543-1037 



F&jya 




VES WE DO WINDOWS SO CAN YOU 



Wtndowpad an integrated win- 
dowing and not? processing utility 
is ready for your TRS-80 Model I 
III Ml/4 Wmdowpad runs along 
with your application program or 
stand alone Just $21 25 Post- 
paid Send Check or Money Order 
to EN Fltur Corp 2494 Sun Valley 
Cir Silver Spring MP. 20906 
JQ [MP Residents Add 596 Taxi d 



Circle 367 on Header Service card 



NEW! Lower Prices!! 

wabash 

six-year warranteed 

DISKETTES! 
$11.90/box (10) 

S ," s.nqle sice yr :jle-cen$ity, double-density 
add $2 bo* Add S3 [»•• i 'dnr «mprnnq <; , "iron 

.■;.' ' • r..\'nr, 'a. 

Library Case-$1.50 cwtthdM purchase) 

immediate shipment or. VISA. MasterCard or 

Mnev Trjf. ad "4 Jays h ■ i>i"sci.i I'lr-r.', 

CALL TOLL FREE ... 
(800)222-1248 ^- 
In Illinois Call (312) 882-8315 

DEALERS! SCHOOLS' USER GROUPS! 
Cat* 1or oui volume discount pints* 



DIGITAL IMAGES 

1185 Tower, Schaumburg IL 60195 



USE YOUR HOME COMPUTER TO TRACE 
YOUR FAMILY ROOTS WITH 



MICRO^flOOTS 

7411 Riggs Road, Suite A 104 
Adelphi. MD 20783 • 301 460-0754 



"■i'- t«i ■- ^rtr- , re,vsM:;;i 

<r, -r-n;j;et jse-. • :), ;. 

a at • t, j' •-.' ti-'it ii. in 






n, t< i 

■ :,—-. ,-dUji 






, .--- -^v^ 

I MKHOiflOOTS ' ' V I 

I 7411 RiggsRoad Suite A 104 Adelphi. Maryland 2078 i I 

' tr", unrttaad • "•• ehack n not iy ■ tarli • 124 > : i ' 
I Please send me a subscription for Microroots. i 

I N ' me I 

I Arkiress I 



ilve-1 nt.-.r-ia 
piers shared. • ideal newslet 
ter/journal for the user at any 
level including oegn » a 

Cul uut. Ii'"- ' - "> •iivc'ob* i -'d —J tc 



1 - '■ 



Z>P 



_1 



Circle i"i on Reade- Service r.ird 





lil! '• ' ^' ; ' Mi 


mm 

< 


1 ^^-^^ dU|DUU| 




*^**m 


tvnru ilm 




- i 

- i -. ■, • 


*nj »rala mm % i>w ..••»-- 


: ;.•'.:.''.• 


1 » ». W tiroot, ••■••■ 


Re»M>*i'~<l •.|iiipA»r.t t /_,*.»«. Mi..i**l */**• M t*t> 

RAfll. « SHACK High H»«oln • | . .• •..-,-. I • 








^:%£i:::: c :^°h-3T-:: ; •"" 




T. Soft 



Uir;:li- 'M? i -i Rii.i Ir- •V"vi.:e -d'O 



TRS 80 Computers 



NEW Computers, Accessories & Software Manufacture Warranty 



26-5103 Model 2000 $2200 

26-1069 Model 4 $970 

26-4005 Model 12 $2800 

26-3802 Mod.100-24K 



26-5111 Monitor 
26-1158 Printer 
26-1256 Printer 
26-3801 Mod. 100 8K 



Now available 
Model 1000, 1200HD 
AND 2000. 



We will match or beat anyones prices: Please Call 

Visa — Waste'CarC — American F»press 
Cashiers ChecK — Money OrOet — C.O.D. with 25' u Advarce 

Business Telephone Systems— Discount Prices— 

TALLEY COMMUNICATIONS CO. ^..^0*^ 

P.O. Box 193 • 121 N. State St References Available 

Decatur. Texas 76234 • 817-627 5585 • 817 627-1017 Fast Delivery 

Call for other computer, telephone and accessory prices! Computer Specialist available for assistance. 



80 Micro. March 1985 • 117 



Circle 482 on Reader Service card. 



%> 



PERSONALIZED % 



K 



PERPETUAL 
CALENDAR SYSTEM \ 






frLT lentil 

sl^^^B 



v£ 




13 r LbKUrlK 1 " 



-.\ di gi f. 7 *: § 




fa2US|2tL7|2gj 

— ! — i — I — i — r 



ij 





WAS 960.00 LAST YEAR 

See our double page ad in 80 Micro's 1984 
December issue (Pages 52 and 53) 



FEATURES: 

• Perpetual Calendar Logic: 

Prints a full page wall calendar for a month, a 
range of months or a complete year in one run, 
for the years 1984 to 9999 

• A Date Management System; 

The software allows you to easily customize and 
maintain any or all dates each year. This means 
you can plan up to a year 

of dates to be remem- ,„ , „.,„.,,., 

bered. Keep track of :™.'„':^~.....,'i :",': 
birthdays, anniversaries. ! ."Sfl", ■ •**"" 
holidays, business meet- • Jggj, '• ■ 
ings or any date that is ""—"",",".•;" S252S3SS 
important to you. 

• The Zodiac Pictures: 

Featured with the calendar system is a set of 
beautiful graphic designs of the 12 symbols of 
the Zodiac, with each symbol, There is an optional 
area called the Trait Box. which list informative 
and amusing characteristics of the Zodiac sign 

• The Trademark Area: 

At the base of each picture there is an area that 
can be customized in any fashion. You can print 
your name, company name, school name, poem 
or favorite quotel 

• Operational Requirements: 

Models I. Ill or IV; One Disk Drive: 32Kof storage 
any printer that works with your computer: 80 or 
132 column. 

Call or write for further into: (61 6) 929-4569 
BLUE PRINT SOFTWARE CO. 
100WAUWEPEXTR < A t\C\C\ 

RIOGE. NY 1 1961 Only *«#U W 

(Tax & Shipping Included) 
To order send a letter or use the order form: 
Please send check or money order made payable 
to Blue Print Software Co. 



Name: 

Address 



□ MODEL I 



□ MODEL III OR IV 



REVIEWS 



Electric Webster provides 

that extra security you 
need when producing im- 
portant documents, and it 
does so with a minimum 
of hassle. 

the modules check command syntax 
and point out errors. 

All Together Now 

When you get Electric Webster, you 
should make a back-up copy using 
either TRSDOS or DOSPLUS. Cor- 
nucopia includes a special utility with 
Electric Webster, Test/EW, to detect 
file errors on the disk. If any files are 
bad, you should return the master disk 
to Cornucopia for replacement. 

You need two disks to use Electric 
Webster: one for your word processor 
and Electric Webster's control files, 
and the other for the dictionary files. 

With the back-up disk in your com- 
puter, transfer the six main sections of 
Electric Webster (using the appropri- 
ate word processor linking module) to 
your word processing disk. This re- 
quires about 70K of free space before 
you start. If you don't have that much 
room available, you can put two of the 
files on the dictionary disk instead (re- 
ducing available room for your expan- 
sion dictionary). 

Now, format a new disk and put the 
dictionary files on it. That's all there 
is to it. 

Working from Within and Without 

You can invoke Electric Webster 
either from within your word proces- 
sor or independently. If you call it 
from within, Electric Webster loads 
your document in memory, discards 
duplicate words, sorts the remainder, 
and compares them with the entries in 
its dictionary files. It eliminates 
matches and lists the other words to 
the screen in a group. Pressing the 
enter key starts the correction mode, 
where you can correct the word, leave 
it unchanged, display the word in con- 
text, display the appropriate section of 
the dictionary, add the word to the 
dictionary, or exit the program. 

Selecting the in-context option re- 
serves the word for later, when Electric 
Webster reloads the text file and dis- 



plays the word in context. When you're 
done, Electric Webster updates the dic- 
tionary if necessary and returns you to 
the word processor with the corrected 
text in memory. (Allwrite and LeScript 
also put corrected copies on disk, Lazy 
Writer and Scripsit don't.) 

Using Electric Webster by itself is 
quite different. It loads the document 
you specify in memory, discards du- 
plicate words, and sorts and compares 
the remainder with the dictionary lists. 
Electric Webster displays words miss- 
ing from the dictionaries on the screen, 
or sends them to your printer, and the 
program terminates operation. 

The amount of memory available 
on your data disk is the only limit to 
the number of words you can add to 
Electric Webster's dictionary. On the 
dictionary disk, you have about 70K 
(after removing unnecessary Electric 
Webster files) if you're using standard 
40-track, 18-sector Radio Shack drives. 

Famous Last Words 

Electric Webster provides that extra 
security you need when producing im- 
portant documents, and it does so 
with a minimum of hassle. Its best fea- 
tures are available only if you integrate 
it with one of the word processors it 
supports. 

The only serious drawback I found 
with Electric Webster is that it ignores 
the text formatting commands, forc- 
ing you to manually check them for 
spelling problems. ■ 



Electric Webster 

***** 

Cornucopia Software, Inc. 

P.O. Box 6111 

Albany, CA 94706 

415-524-8098 

Model m, 48K RAM 

Model 4, 64K RAM 

$89.95 

$149.95 with Correcting Feature 



Easy to use? 


*•*•• 


Good docs? 


• •••* 


Bug free? 


***** 


Does the Job? 


****# 



118 • 80 Micro, March 1985 



Circle 207 on Reader Service card. 



Circle 172 on Reader Service card. 



wabash 

When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard. Visa Accepted. 
Call Free: (800)235-4137 




PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo. CA 
93401 (InCal call 
805)543-1037) 



Circle 231 on Reader Service card. 



UTILITY PROGRAMS 
FOR MODEL I 

BSH- BASIC SCRE£JN Handler akjws tfv user to format and saw fu3 
screens to be used bv a BASIC proyam Variables are deftned to be alphan 
umeric or numeric, to be input only, output ociy. 01 input output 

CFP Command F« Processor allows the user to save a series o( commands 
in a tile, and have those commands processed titer as if the\ uere being en 
leredbv hand 

PATCH is a pcoo/am designed tor the assembler programmer to alter OB- 
JECT code iCMD or CLM Slesl uithou: Saving to reassemble anc Ink the 
source code 



DiCOPV 
9,-aem 


sateciperK* \iseTswrth<y^T> g 


rtf-riiskdrweo 


n*>ienr.r.TTYpu\ei 
















DICOPY 






$1500 



TO ORDfcR Send check ex money order aiong with your chotce of pro-am 
Shrppng and handing are included T»ew YorV residents p«ease add appro 

[Him iihinul 

Dowling Enterprises, Inc. 

P.O. Box 12716 

Albany, NY 122124726 

(SIS) 459-27X3 



Circle 54 on Reader Service card. 




INODVILL ^2 
DIET 
PROGRAM 

te 



TAKE A BYTE \ 

MAINTAIN. LOSE OR GAIN WFIGHT 
w.th the NODVILL DIET PROGRAM Take a Byte 
and a TRS-80 DO Disk M I III 4 or PC Compatible 



$69.95 



Calculate 




and nutritive too-, intake 
Evaluate nulntive value of your diel 
Compart daily diel to individual RDA Chart 
Create personalized daily meals and menus 
Plan varied daily menus ba««d on sound nutrition 
Save records O' daily meals and menus lor future plar 
Print nutrition charts, lood. meal menu and grocery l 

"Take a Byte" N a Modular BASIC Program 

MAIN Proqram Menu 

l RecommfrnaedOaiiy Dietary AHoarance (HOAI CHART 
? 733 Expandable Random Access FOOD LIST Data File 
3' 28 Nutritional MEAL LIST Data File Camples 

4 7 Balanced DAILT MENU LIST Oata Fie Eiamples 

5' GROCERY LIST Program Module 

6' 75 Page USER S MANUAL including Charts and Tables 



JL_ 



BNODVILL Software 
24 Nod Road 

Ridgelield. Conn 06877 



M 



EMC 



ft C W§ . *o.jr tywn personal lorecas' 

COMPARE •ne.e.« i u S fwm.n 9 qur» «e K 
•■ STOCKER1 .. IwecaSt tor ttv Dow Jon,-s 
'Mis'ria' Average daily closing with your cur- 
rent method 



UNLIMITED PROFIT POTENTIAL 

WATCN OUT WALL STREET!! Now available on floppy disk for 
brokers and active traders The AMAZING computer program 
"STOCKER 1 » uses new Moving Window -Spectral algorithm tofore- 
cast stock/commodity market TURNING POINTS— not mere trend 
line/moving averages Affordable! Easy to use' 

USED BY STOCK /COMMODITY BROKERS * ACTIVE TRADERS 

Perhaps you too are ready lor the STOCKEB1 challenge 1 



AVE ERROR UNDER J* 



' • " gut 



ENGINEERING 
MANAGEMENT 
CONSULTANT 

P.O Box 312 

Fairfax. Va 22030 
Tel (703)425 1296 



••STOCKER1- avai able tor 
IBM PC MSDOS 

APPLE II.II + . He Z80CAR0 

TRS80 MOD III. 4 II. 12. 16 
TANDY 2000 MSDOS 

48K MINIMUM 

S299 MASTER/VISA/CHECK 

IXCLUDl S t-Rcl HOUR 
ONMOOLM SFRVICC 



Does your broker use STOCKER1? 



Circle 140 on Reader Service card. 




CDMBflT 
CHESS 




Chess has challenged the 



For 1GDD yeai-* 
greatest thinkers ot mankind. 

Nau in the compute/' age comes the greatest intellectual 
challenge of all, enmnutfr twetivatec chess, uith chess men that 
move COntlnuDUBJljtfprDBa ipe chess board, each seeminolu on 
its own a C C ^gg^BiMpO n O er upur direction. 

CQWfeAT CHESS is a totaplu new dimension doth in chess and 
in compj^jjer games. One/orvanu number of chessmen can move 
contiriuausiy across ^rfrie /chess board each capturing or 
destrouing the enaMM!pautcijnaticallu upon contact according to 
the rules of cristas. You cam .-program uour armu each time uour 
turn comes a^^Jund and traen unu are the observer as uour 
orders are oarried out. J 

Did cheiss plau a part in the greatness of anu of the 
statesmen Df Histaru? Perhaps ljou can discover the answer 
on uour computer. 5n=»rpen uour intellect mith COMBHT CHESS. 

We guarantee thar Combat Chess is the most exciting, the 
most intellaRtuallu stimulating, the most interesting and the most 
fun af ani l comp uter gaine uet invented or uour moneu bacH. 
The game is Fast or sioiu according to uour desire and tuill liven 
up anu partu ~ Beouires tuo plauers uho challenge one 
another. ^-v. 

10lliri8tilll?iBV ©IFiFiB i4ftj® «• 

Plus shipping - Visa/Mastercant§fe s OK - Model III ahdlV. 

PROGRAMMERS — We will pay »5Q0'"f^-'the btfrt>~irf\dyr opinion, imp>£)veiiient 
of the Combat Chess disk plus we t»ilf flay a 3'/ rs^fa+ty TW* ® period Pi2 years 
on any such improvements sold by ubs. He will also pay <W»« saiijB^'ainauots for 
the best anti-pirats protection schene^^ubmitted. All suKntfrsions must be in 
our office before May 1. 1985. Those accepted will be notified within 45 days. 
All submittals will receive a reply. Those wtsjung to submit a program for 
consideration may add *5.Q0 for a source code tiiiik listing the program in 
basic. No purchase is required. 



price *69.50) 



linn iisiii@i in 

Trona. Calif. 9356P (G19) 37E-S35S 



Box 2HS 



80 Micro, March 1985 • 119 



NEW PRODUCTS / edited by Robert Mitchell 



At Home or Offix 

Offix is an integrated 
software package for the 
Model 2000 that combines 
filing, word processing, 
forms design, and report 
generation in an easy-to-un- 
derstand format. 

Created by Emerging 
Technology Consultants 
Inc., Offix ($149) does 
away with user's manuals, 
featuring instead pop-up 
menus, help screens, and 
on-line tutorials. 

Offix simulates the steps 
involved in gathering and 
filing information by dis- 
playing a file cabinet on 
screen. To open a file, you 
position the cursor over the 
appropriate drawer. Each 
drawer holds up to 100 file 
folders, and each folder can 
contain an unlimited num- 
ber of documents. 

More information is 
available from your local 
Radio Shack store, or by 
contacting Emerging Tech- 
nology at 1877 Broadway, 
Boulder, CO 80302, 800- 
782-4896. 

Reader Service ^552 

Data Adventures 

Infocom, maker of pop- 
ular adventure games such 
as Zork and Deadline, is 
entering the business soft- 
ware market with Corner- 
stone ($495), a relational 
data base system for non- 
technical users. 

Program features include 
context-sensitive on-line 
help messages, menu-driven 
command structures, text 
editing capabilities, and a 
report writing module that 




The latest product from Infocom isn't a game — it's a data base manager 
for computer novices. 



draws information from 
any combination of files. 

A conversion utility lets 
you transfer files from 
dBase II and III and PFS: 
file. Cornerstone includes 
an on-line tutorial, begin- 
ner's guide, owner's hand- 
book, and sample data base 
application. The program is 
available for the Models 
1000, 1200, and 2000. 

Contact Infocom Inc. (55 
Wheeler St., Cambridge, 
MA 02138, 617^92-1031) 
for more information. 

Reader Service • 574 

Diet Software 

Soft Byte Inc. (Box 1484, 
E. Lansing, MI 48823, 517- 
337-1253) offers three nutri- 



tion software packages for 
the Models III and 4. 

Heartware ($50) aids 
family cooks in making rec- 
ipe changes for low-so- 
dium, low-cholesterol, and 
low-fat diets. The program 
translates diet restrictions 
into healthy, appetizing 
meals by checking recipes 
for unacceptable ingredi- 
ents. It then suggests substi- 
tute ingredients and calcu- 
lates the necessary amounts. 

The Balancing Act ($65) 
is an interactive dietary pro- 
gram for creating a weight 
loss plan. The program ap- 
plies the basic concepts of 
weight control by balancing 
diet and exercise. Diet rat- 
ings let you balance or re- 
balance your diet. 



A professional version of 
the program, The Balancing 
Act I ($299), is a multiuser, 
modifiable data base pro- 
gram for educating patients 
in weight control. It's de- 
signed for health profes- 
sionals in private practice, 
outpatient clinics, and fit- 
ness programs. 

Reader Service ** 557. 

Tandem Tandy 

Double Duty lets you run 
two programs simultane- 
ously on a 128K Model 4. 
You can move between any 
two programs and execute 
library commands from 
within them. 

The program partitions 
Model 4 memory into two 
64K sections and a library 
command section, letting 
you concurrently run two 
programs that use less than 
64K of memory each. 

Created by Software 
Concepts Inc., Double Du- 
ty is available at Radio 
Shack stores (catalog num- 
ber 26-2231) for $69.95. 

For more details, contact 
Tandy Corp./Radio Shack 
at 1800 One Tandy Center, 
Fort Worth, TX 76102. 
Reader Service • 551 



Thinking to the Max 

MaxThink ($59.95) is a 
thought processor for Xe- 
nix, CP/M, and MS-DOS 
computers that helps you 
create outlines and organize 
ideas. 

MaxThink helps you 
transform information into 
ideas by using commands 
for organizing, analyzing, 



120 • 80 Micro, March 1965 



Circle 444 on Reader Service card 



YOUR BEST BUYS ARE WITH SOUTHWESTERN DIGITAL 



TANDY 1000 / 1200 



TANDON DOUBLE SIDED FULL SIZE DRIVES BARE $189. 

TANDON DOUBLE SIDED FULL SIZE DRIVE WITH CASE .$239. 

TANDON DOUBLE SIDED 1/2 HEIGHT DRIVES BARE $159. 

TANDON DOUBLE SIDED 1/2 HEIGHT DRIVE WITH CASE $209. 

64K MEMORY (9 CHIPS) $ 50. 

HAYES 1200B $399 

HERCULES COLOR CARD $209. 

HERCULES GRAPHICS CARD $379 

PERSYST COLOR CARD $209. 

PERSYST MONICHROME CARD $259 

QUADRAM COLOR CARD $219. 

QUADRAM EXPANDED QUADBOARD OK $249. 

QUADRAM QUADBOARD II OK $249 

QUADRAM 512+ 64K $249 

QUADRAM PARALLEL BOARD WITH 8' CABLE $ 84. 

QUAD I/O PARALLEL, SERIAL, CLOCK. AND GAME 

PORT CARD $189 

SEATTLE RAM +6 OK $229. 

SEATTLE RAM +3 OK $199. 

SEATTLE RAM + OK $149. 

STB SUPER RIO 64K $349. 

STB RIO 64K $329. 



MODEL III / IV 



MODEL 3/4 RS232C KIT $ 59 

MODEL 3/4 DRIVE KIT WITHOUT DRIVES $190. 

MODLE 3/4 DRIVE UPGRADE $339 

MODEL 3/4 DRIVE 1 UPGRADE $ 14 g 

MODEL 3/4 DRIVE AND 1 UPGRADE $499. 

MODEL 3 16K UPGRADE KIT $13 

MODEL 4/4P 64K UPGRADE * 45 

PAL FOR MODEL 4 64-128K UPGRADE $ 17 

MODEL 1/3/4 EXTERNAL DISK DRIVE .$ 169 

MODEL 1/3/4/4P PRINTER CABLE $ 19 

TANDON SINGLE SIDED 1/2 HEIGHT BARE DRIVE ...... .$129 

TANDON DOUBLE SIDED 1/2 HEIGHT BARE DRIVE $159 

TANDON SINGLE SIDED FULL SIZE DRIVE $149 

TANDON DOUBLE SIDED FULL SIZE DRIVE .$189 



COLOR COMPUTER 



DRIVE FOR COCO $279. 

DRIVE 1 FOR COCO $169. 

DRIVE & 1 FOR COCO $428. 

64K KIT (8 CHIPS) $45. 

HJL KEYBOARD $ 69. 

MICRONIX KEYBOARD $69. 

KEYTRONIC KEYBOARD $ 79. 

PARALLEL PRINTER ADAPTER $ 50. 



■HIKI 1 (»» m»«t<fcKOu!H 10. C««* Hilt HWlClCft 0'OtiJ 

MyntAtArtCMyloul o- c»ti rou< 0'0»< >n loday All lonceihfi 



J00 5- l 



PRINTERS 



OKIDATA 82 $ 329 

OKIDATA 93 $689 

OKIDATA 84 $ 875 

PANASONIC 1090 $279 

PANASONIC 1 091 $339 

PROWRITTER 8510 AP $ 319 

FLIP AND FILE 50 DISKETTE HOLDER $ 14. 

VERBATIM 525-01 DATALIFE BOX OF 10 SS/DD $ 20. 

VERBATIM 550-01 DATALIFE BOX OF 10 DS/DD $ 26. 

QUADRAM MICROFAZER PRINTER BUFFER 8K $129 

EACH ADDITIONAL 8K $ 6 



MODEL 1000 HARD DRIVE 



$775. 



10 MEGABYTES READY TO PLUG IN AND GO ' 
Why waste money? This Hard Drive mounts Internal to 
upgrade your 1000 to tha storage capacity of a 1200. 
Installation only requires a screwdriver. 



THIS MONTHS SPECIAL 



COLOR COMPUTER 

DRIVE 



$249. 



COMPLETE 




1-713-480-3296 

2515 W. Main #337, Houston, Texas 77098 



80 Micro, March 1985 • 121 



NEW PRODUCTS 



evaluating, planning, and 
thinking. 

Commands gather, clas- 
sify, divide, join, and sort 
words and ideas. MaxThink 
runs on the Models II, 4, 12, 
16, 1000, and 1200, and in- 
cludes a manual. 

For more information, 
contact MaxThink Inc., 230 
Crocker Ave., Piedmont, 
CA 94610, 415-428-0104. 
Reader Service »^ 568 

MoreCP/M 

The PICDisk micro disk 
($799) puts CP/M 2.2 on 
the Model 100, letting you 
run thousands of CP/M ap- 
plications programs on 
your laptop (and your desk- 
top) computer. 

The system includes 
T/Maker, the integrated 
software package that in- 
corporates spreadsheet, 
data base, word processing, 
list processing, and graphics 
functions. 




The PICDisk micro disk system includes CP/M 2.2 and T/Maker inte- 
grated software. 



PICDisk uses 3 Vi -inch 
disks and provides an addi- 
tional 32K of RAM. It at- 
taches directly to the Model 
100, requiring only a screw- 
driver for installation. A 
built-in battery pack and 
charger provide 2Vi hours 
of disk access time. 

A dual drive option is 
also available. For more in- 
formation, contact Per- 
sonal Integrated Computers 
at 18013 SkyPark Circle, 



Circle 166 on Reader Service card. 



AFFORDABLE MASS STORAGE 




1050 E. Duane Ave., Suite I 
Sunnyvale, CA 94086 
(408) 732-9292 

Model I ESF STARTER KIT 



$149.50 



7200 Baud Transfer Rate 
No Volume Controls or Rewind 
No Expansion l/F Required 
Automatic Verity with Save 
Uses only 4 Bytes User Memory 
Key Debounce Routine in ESF 



Add $6.50 Sniping, Includes: Drive 0. 
Manual. Operating System. Power 
Supply, Cable, Data I/O Tape. 
5 Microwafers 

Model I ESF DRIVE 1 thru 7 $99.50 

Add $6.50 Shipping 

Model I OWNER'S MANUAL $4.95 

Upper/Lower Case Kit $14.95 

Character Generator $19.95 



MICRO WAFER 

5ft $350 

10ft $3.50 

20ft $4 00 

35 ft $4.00 

50ft $450 



ALSO COMPATIBLE WITH... 

Timex 2068 $199.50 complete 

Timex 1000 $169.50 complete 

Timex 1500 $169.50complete 

Commodore 64 .... $84.95 complete 
VIC-20 $84.95 complete 



MODEL I BUS-EXTENDERS 

2 fori $25.00 

3 fori $30.00 

4 fori $35.00 

5for1 $40 00 

Custom call for prices 



Software Available 



Check or Money Order Enclosed COD. add $1 65 

U.P.S. shipping cost, add $3.00, unless other specified 

CA residents add 6.5% sales tax Charge to my VISA MASTERCARD 

Prices subject to change without notice 



Suite D, Irvine, CA 92714, 
714-261-0503. 

Reader Service *s 559 

Connect the D.O.T.S. 

The D.O.T.S. utility 
package ($29.95) lets you 
create, edit, and print de- 
signs on a dot-matrix printer 
using the Model I or III. 

The programs, from Mi- 
croSmith Computer Tech- 
nology (Box 1472, Elkhart, 
IN 46515, 219-293-8339) 



use an overlay that you put 
over the design you're digi- 
tizing. The enlarged grid on 
the overlay is proportional 
to the dot spacing on Epson 
and compatible printers. 
You can then modify any 
graphics block of 8 by 8 
dots with the video graphics 
editor. 

D.O.T.S. creates a data 
file for use with the print 
routines and includes rou- 
tines to print designs on 
labels or as a logo on stan- 
dard printer paper. 

Two other Model I/Ill 
programs, Screen-It ($24.95) 
and Microcomm ($24.95), 
are available from Micro- 
Smith. Screen-It saves print- 
out paper by letting you 
display Scripsit files as they 
will print out. 

The Microcomm com- 
munications program trans- 
fers CMD files, up- and 
downloads programs, and 
saves information to a buff- 



Circle 146 on Reader Service card. 



POWER HUNGRY? 

Inside your TRS-80 Model 4 is immense POWER fighting to get out. 

SUPERMOD4 frees it! 

YOU CAN COMMAND THE POWER 

If you own a Model 4, and use a Model 3 DOS. 
you can now command a SUPERCOMPUTER. 

SUPERM0D4 BRINGS POWER TO YOUR VIDEO with 80x24 40x24. 64x16 and 32x16 video formats, reverse 

video, up to 24 line scroll protect and more And this is total power ad BASIC video control commands (printf . 

tab. set. reset, point etc ) get the power 
SUPERM0D4 BRINGS POWER TO YOUR KEYBOARD the power of an audible keydo for accuraie typing the 

power ol easily programmable special lunction keys 
SUPERM0D4 BRINGS POWER TO YOUR PRINTER With its I4K print spooler you can print while your computer 

does something else You can also send unaltered graphics codes to your printer 
SUPERM0D4 BRINGS YOU THE POWER OF SPEED Using the 4 MHz CPU dock att your software runs tw>ce as 

fast - but not out ot control. SUPERM0D4 makes the realtime clock and similar operations work cor-ectiy 
SUPERM0D4 HAS THE POWER OF INVISIBILITY SUPERM0D4 is iWk software, but all you see is the power. 

not the program. SUPERM004 uses NO USER MEMORY 1 All the powers touch not one Byte ot your memory 
SUPERM0D4 HAS THE POWER OF INTELLIGENCE, n knows how to do rts |Ob. it doesnt need any software or 

hardware patches All SUPERM0D4 needs is a Model 4 (4P owners please inquire) running most Model 3 

DOS's It works with all software that use the normal I/O drrvers 

You control the POWER: select the ones you want, and have them work your way 
SUPERM004 is so powerful, only a lew ol its abilities have been revealed here. 
To learn more, send lor details. 



What is the price ot power' Only $49 95 



DISK DRIVE — $49 95 

Not a normal disk drive - but better! (And it doesn't even need diskettes!) 

• SUPERDISK is a software RAMDlSK tor NEWDOSfflO 2 « on the TRS40 Models l ,3 and 4 

• SUPERDISK allows extra memory to be used as a disk dnve 

• SUPERDISK is 1000%-2000% taster than a normal drive 

• SUPEROiSK works with all disk commands lormat copy, pdrive etc 

• SUPEROtSK provides up to 106K ot storage on a 128K Model 4 (less on 48K and 64K machines) 

• SUPERDISK can be the system drive No neefl 10 keep a disk in drive D ..,nic«c 

• SUPERDISK is compatible with Alpha Technology's memory boards With them create even larger RAMDlSKb 

Alto ataUtbh Hardware by Alpha Technology - 5 MHz CPU speed-up kits and memory expansion boards (up to 
512K) Both are compatible with SUPERMOD4 and SUPERDISK Send lor details 



rc 



Iniel'igent Technologies Co 
Finding the software answer to the hardware problem 

21 Campbell Dnve • D,x H.lls. New York 11746 • 1516) 462*970 Ext. 8 

,-..,«. mm. Mr. or COO . »-«—««■ coo. US rCOO .«..>•* v S .«o- »«< 



> mop-ng ii 



122 • 80 Micro, March 1985 



NEW PRODUCTS 



er. It requires 48K RAM and 
a printer. 

Reader Service ^ 561 



Pick a Daisy 

Xerox Corp.'s Diablo 
Advantage D25 25 cps 
heavy-duty daisy-wheel 
printer ($745) uses an all- 
purpose interface to con- 
nect to serial or parallel in- 
terfaces. 

The D25 features auto- 
matic proportional spacing, 
automatic carriage return, 
bidirectional printing, vari- 
able line and column spac- 
ing, and automatic paper 
loading. 

Options include a bidi- 
rectional tractor and a sin- 
gle-bin sheet feeder. Hard- 
ware and software for these 
accessories is built into the 
printer. 

For more information, 
contact Xerox Corp., Xe- 




The Diablo Advantage D25 printer features an all-purpose interface that 
connects via a parallel or serial port. 



rox Square 006, Rochester, 
NY 14644, 716-423-5078. 
Reader Service v 567 

Beeping in Basic 

Logical Systems Inc. 
(8970 N. 55th St., Box 
23956, Milwaukee, WI 
53223, 414-355-5454) offers 



the BEEP enhancement 
package ($49) for TRSDOS 
6.2 Basic. 

BEEP provides one-key- 
stroke abbreviations for the 
Auto, Edit, Delete, and List 
commands. The Immediate 
command key feature lets 
you use combinations of the 
arrow, period, and comma 



keys to edit the current line 
or to list the current line, the 
next program line, the pre- 
vious line, the first program 
line, or the last program 
line. 

Other features include 
moving a program line, du- 
plicating a program line, 
and high-speed loading and 
saving. BEEP loads a 26K 
program in fewer than six 
seconds, compared to 26 
seconds for TRSDOS 6.2 
Basic. 

Reader Service »^ 554 

Express Impressions 

The TTXpress 1280 40- 
character-per-second (cps) 
compact thermal printer 
($229) runs on batteries or 
ac current and fits into a 
briefcase. 

The unit measures \\V* 
by AVi by VA inches, 
weighs 2.2 lbs., and runs for 
up to two hours on three C 



u 



Circle 214 on Reader Service card. 



WILL YOU BUY COMPATIBLE? 



=-= = f\ .m . WILL IUU DUT UUIVirMMDLCf 

&?i uompati Die (or) will you pay too much? 



Ask About Our 

"30 DAYS 

Buy-Back-Policy' 




.MODEL 2000 768K. „ a , MU «cTURER'S*M WMfP ' 



3 



1 DRIVE PLUS 10 MEGl 



HARDDRIVE] 

IguiLf-jfifl 



9~ m m 

* J. 



1 or 2 D RIVES PLUS 10 MEG 

Iharddrive 

BUILT- 





i i i i i i i i i i i i 



'■A\\\\\ 




. 



SAVE SALES TAX" 
PLUS DISCOUNT 

"TEXAS RESIDENTS ADD ONLY 4 1 <b° 



SERVICE AND 
WARRANTY NATIONWIDE 



FORT WORTH COMPUTERS 

L 
WE ARE SERIOUS ABOUT SAVING YOU MONEY 



■■ j| (Located 30 miles from Fort Worth) 

I^Bn^jn | 377 Plaza • GRANBURY • NR FORT WORTH. TEXAS 76048 

'i».. Vi CALL FREE NUMBER: i-aoo 433-S-A-V-E 

W»^J » Monday thru Friday — 9:00 a.m. to 5:00 p.m. Texas Time 

.tm: international business machines inc /VA (Order Inqu iries/Customer Service &) IN TEXAS: 817-573-4111 



Circle 260 on Reader Service card. 



Outputs: 

"H1929 



DEFM 
DEFB 



instead of the meaningless "equivalent": 



•AB25 



DISuDATci 

Now For 
The Model 4 j 

The A 0^ 
Disassembler 

That €ven Tracks Down 

DATA!!! 



'READY' 
ODH " 



LD 
LD 
LD 
LD 
LD 
DEC 



D,D 

B,L 

B,C 

B,H 

E,H 

C 



etc 



NEW PRODUCTS 



* 



AUTOMflTICfiUY identifies such data areas. 
Outputs fullu-labeled Radio Shack* or 
APPflRAT** GDTRSM* source code to deploy, 
printer, disk (and cassette ~ Models l/lll only). 
Can relocate itself to any free RAM area. 
Loads programs from disk (or cassette — 
J Models l/lll only) and displays entry point 

For TRS-80 Model I (Level II). Model III. or Model 4 
(in Model III mode or under TRSDOS 6.0, in Model 4 mode). 



* 1354-42 (Model 4 diskette. TRSDOS* 6.0) $49.95 

*1 354-22 (Model HI/4 diskette. TRSDOS* 1 .3) $39.95 

*1354-12 (Model l/lll cassette) $36.95 



* H*qnt*fd "roo*- 3-y Tor<c\i CoroorOQO" 

* Pupicui *'Od>«^o* ( *PPftflfl" Irs 



US funds Or*/ FWd SB.00 shipping (US 6 Conodo). 
$5.00 (a*«ra«os c*) pi *«m. Ohio residents pieose 
odd 6\ soles tat 




Software 



To order, phone (513) 435-4480 [M»f. 9 ara-5 p.m. €ST). or send check 
money order or VISA/MosterCord nformodon (nome. oddress. cord 
number, expiroOon dote, ond your telephone number) to: 

PflO/RM SOFTUJAftC 

220 Cordon Rood *%£%££%%££' 

Centerville. OH 45459 



Circle 281 on Reader Service card. 



DOUBLES DISKETTE CAPACITY! 

CUTS YOUR DISK COST 50%! 



Now! The back of 5Va" Diskettes 
can be used for data storage even 
with single head disk drives. 

• MBBLE99TCF Tools make it easy. 

• Adds the Precise notch where it's needed. 

• Doubles Diskette Space or Money Back! 

XlltllLE NOTCH II 

Cuts square notch and W inch 

round "index hole." For use with 

TRS 80 I and III, Osborne, 

Kaypro, IBM and others 

needing an "index hole." 

only$21 .90 

add $2.00 each order P&H 

($5.00 foreign P&H) 

Florida residents add 5% Sales Tax 

[SATISFACTION GUARANTEED OR YOUR MONEY BACK! 




Toll Free 1-800-642-2536 

Florida 305-493-8355 

or send Check or Money Order to: 



xiimu: xmrH <:oA\innm ntmmrrs 

4211 NW 75th TERRACE • DEPT. 2 • LAUDERHILL. FL 33319 




The TTXpress 40 cps battery-powered thermal printer fits into a briefcase. 



batteries. Using an ac 
adapter (not included) in- 
creases print speed to 50 
cps. TTXpress prints up to 
160 columns on roll paper 
or 8'/2- by 11 -inch sheets. 

Other features include an 
internal buffer, bit-map 
graphics capability, and 
condensed, emphasized, 
and enlarged character 
modes. A parallel interface 
is included. 

Contact TTX Inc., 3420 
E. Third Ave., Foster City, 
CA 94404, 415-341-1300 for 
more information. 

Reader Service ** 573 

Ahead in the Polls 

Survey Analyst, from 
The Alternate Source (704 
N. Pennsylvania, Lansing, 
MI 48906, 517-482-8270) 
calculates results for your 
survey, questionaire, or poll. 

The program lets you cre- 
ate a survey of up to 510 
questions with yes/no, mul- 
tiple-choice, and numerical 
answers. The data entry 
mode screens entries for ac- 
curacy, and edits, displays, 
prints, and saves files to 
disk. Output is in table for- 
mat for presentation in 
reports. 

Survey Analyst also pro- 
files and compares selected 
respondent groups. The 
program is $195 and re- 
quires a Model I, III, or 4 
with 48K RAM and two 



drives. A manual with ex- 
amples and an overview of 
survey research is included. 
Reader Service >s 570 



Quick Switch 

The Scooter Multi-Buffer 
($389) automatically ac- 
cepts data from up to three 
computers for output to 
one printer. Data from the 
computers waits in turn in 
Multi-Buffer's 64K mem- 
ory before printing out. 

An LED bar graph indi- 
cates the amount of buffer 
memory in use. Multi-Buff- 
er also features LED lights 
that indicate which comput- 
ers are inputting data, a 
print light, a pause switch, a 
copy switch for reprinting a 
data segment, and a reset 
switch. The unit works with 
any parallel printer. 

For more information, 
contact Ohm Electronics, 
746 Vermont, Palatine, IL 
60067, 312-359-6040. 
Reader Service »^569 



Slim Screen 

The Thinview LCD screen 
($699) from Axonix Corp. 
is a self-contained 80-col- 
umn by 25-line display sys- 
tem for the Model 100. 

The expanded screen lets 
you edit full text pages, in- 
terpret spreadsheet data, 
and create high density 



124 • 80 Micro, March 1985 



NEW PRODUCTS 




Disk Filer holds up to SO disks m five transparent compartments. 



graphics for output to a 
printer. 

Thinview features an on- 
board microprocessor, a 
16K RAM input buffer, a 
printer port, and a macro li- 
brary of screen commands. 
The unit weighs 3 pounds 
and measures 11 by 6 by 1 
inches. It includes a re- 
chargeable power supply. 

An optional operating 
system-based program lets 
you display Model 100 
ROM-based programs on 
Thinview. 

For more details, contact 
Axonix Corp. at 417 Wa- 



kara Way, Salt Lake City, 
UT 84108, 801-582-9271. 
Reader Service ^ 553 

Introducing 
Disk Windows 

Disk Filer ($34.95) or- 
ganizes and protects up to 
50 disks in five transparent, 
flip-down compartments. 
Color-coded labels identify 
each ten-disk compartment. 
A side lock secures com- 
partments when closed. 

Disk Filer includes a han- 
dle and measures 14 by 6V* 
by 8 inches. 




FREE SHIPPING 

'DISKETTES' 

•/^SSx^Sft'Si'ir Central & East' Call " 

1(800) 621-6221 1(800) 654-4058 

_Disco unts Starting at 3 Box Quantities 

Dysan | maxell Veibatimi 



3M 



•sV 

s-side 

,1 :, •• 

d-side 
d-den. 

s-side 
quad 

d-side 
quad 

•8"« 

s-side 0150 

s-den. Li. 
s-side OCOO 

d-den. ZO " 
d-side 9150 
d-den. 01 



17 9S 

23* 

27=p 

33 95 



3M 

DC100A....13^ 
DC300A...1849 
DC300XL 202.5 
DC6O0A..2415 



•5'; 

s-side 
d-den. 

d-side 
d-den. 
s-side 
quad 

d-side 
quad 

•8' 

s-side 
s-den. 
s-side 
d-den. 
d-s'ide 
d-den. 



22- 
30 

45 50 



2r 

30* 
34* 



s\ 2 CALL 

• 5V- 

|50| s-side 1Q9_5 

! d-den. 19 

d-side 9C95 

d-den. LJ 

s-side 0095 

quad LO 

d-side QC95 

quad JU ~ 

•8 

s-side 0195 
d-den. 



d-side 
d-den. 



3l ! 
34* 



AMARAY MEDIA MATE 
(3V. 1195) (5W 11 yb 

DISK MINDERS 
(5V 4 " 1675) (8" 



5 1 4'Daialife 

s-s.de |09_5 

d-den 10 

a-siae94 9 J? 
d-den. A 1 
s-side0ft95 
quad JU 

d-sideOQ 9 - 5 
quad 0\t 

•8 Datalife 

s-side 94 7-5 

s-den. £t 
s-side OC95 
d-den. ZO 

d-side 9195 

d-den. OX 



Head Cleaners 

, Kits 520 

2150) Refills 955 



Diskettes 
10 Box 



BULK PACKED DISKS CALL 



Anali/ers 2500 



the 



OKLAHOMA 
& NEVADA 



Dis1<etfe4 



Dealer Inquiries 
We'comea 

11800) 654 4058 



UPs Delivery Only. Add 3 1 * on orders under 35 1 * or 20 disk 



rcle 86 op Reader Service card 



TJThli IS 

MODEL III 



MODEL 4 




Stale o< the en technology m board design our direct replacement ol Radio Snack s* 
nternal RS232 board mounts ms.de the Model III or 4 on the enisling brackets An 
cables, screws and complete mounting instructions are included Non technical 
people win f.nd that installation ,s quick, straight forward and simple requiring less 
than 1 5 minutes to complete 

Total compataOiity with Radio Snack" and a'l e>ist-ng software <s maintj.nea 
Software programmable baud rates from SO to 1 9 200 baud are supported along with 
programmable word length slop bits, and patitv May be utiiired .n either halt ol tun 
dupie» operation , ., ... 

Outatending Value 

Guaranteed One FuN Year 
Dealer mowes inured 
Pleas* forward payment by ■ ca.hter'i 
chack or morwy ordar. 
Visa or Masiercharge also accepted 
Add S3 00 shipping & handling 
(Foreign orders quoted on request) 



CMPfl0G/C 



ai4/aao-i sat 



80 Micro. March 1985 • 125 



NEW PRODUCTS 



For more information, 
contact Computer Acces- 
sories Corp. at 76% Formu- 
la Place, San Diego, CA 
92121, 619-695-3773. 
Reader Service s 571 

Programs Plus 

In 60 Business Applica- 
tions Programs for the TRS- 
80 Model 100 Computer, 
Terry Kepner and Mark 
Robinson offer a range of 
useful business programs 
for the Model 100. 

A full explanation ac- 
companies each program, 
and a glossary of commonly 
used business terms is in- 
cluded. The book is $17.95 
from Scott, Foresman and 
Co., 1900 E. Lake Ave., 
Glenview, IL 60025. 
Reader Service »^ 555 

Spike Busters 

The Model 062 two-out- 
let Noise/Surge Buster 




The Surge Buster comes in two- 
and four-outlet models. 

($79.95) for personal com- 
puters protects data from 
line noise, transients, and 
high-voltage surges. 

A four-outlet model is 
also available. Contact 
PMC Industries Inc. (9353 
Activity Road, San Diego, 
CA 92126, 619-695-3520) 
for more details. 

Reader Service *>* 566 





New Products Index 




Reader Service 




Number 


Company 


Page 


570 


The Alternate Source 


124 


553 


Axonix Corp. 


124 


571 


Computer Accessories Corp. 


125 


562 


Computer Novelties 


127 


552 


Emerging Technology Consultants Inc. 


120 


574 


Infocom Inc. 


120 


554 


Logical Systems Inc. 


123 


568 


MaxThink Inc. 


120 


561 


MicroSmith Computer Technology 


122 


569 


Ohm Electronics 


124 


559 


Personal Integrated Computers 


122 


566 


PMC Industries Inc. 


126 


555 


Scott, Foresman and Co. 


126 


556 


Soft Byte Inc. 


120 


551 


Tandy Corp. /Radio Shack 


120 


573 


TTX Inc. 


123 


567 


Xerox Corp. 


123 



New Products listings are based on information supplied in manufac- 
turers' press releases. 80 Micro has not tested or reviewed these prod- 
ucts and cannot guarantee any claims. 



Circle 496 on Reader Service card. 



Communications Gap? LETS TALK ! 



IBM PC &. 
PC XT* 



COMPAQ" 




TRS-80* Model III 
TRS-80 Model 2. 
4. 12 and 16 



LETS TALK CLOSES THE COMMUNICATIONS GAP 
BETWEEN TODAYS POPULAR PERSONAL 
COMPUTERS. 

LET'S TALK is a complete package for fully supported 
communications between any of these computers. In 
any direction. Without additional expense. 
LET'S TALK is a simple, straightforward pro- 
gram that transfers ASCII data files, including 
BASIC and VisiCalc*. from one computer to 



Tandy 2000 v 



another. Precisely. Easily. Without professional, expen- 
sive data processing expertise. 
LET'S TALK allows two computers to communicate 
directly with each other in a "conversational mode" 
when not actually transferring data. And, LET'S TALK 
can send or retrieve files of any size from unattended 
_ computers, at three different speeds. 

f J= JOOf)) GROWTH AND EXPANSION REQUIRE 



5a=TLu«ne coop 



OPEN COMMUNICATION. LET'S TALK. 



Making dollars and sense out of information. 

TRS-80 is a registered trademark of Tandy Corporation Tandy 2000 is a trademark of Tandy Corporation Visi Calc is a registered 'remark of VisiCorp. 
IBM PC and PC XT are registered trademarks of IBM Corporat.on COMPAQ is a trademark of Compaq Computer Corporation. 

a division of the goodman group, inc 12900 Preston Rd . Dallas. Te«as 7 52 JO (214)239-6085 
LIT'S TALK include* all diskettes lot each o( the above computers Suggested retail price 1 1 79 00 ♦ 15.00 shipping 



126»80 Micro, March 1985 



NEW PRODUCTS 




DIFFERENT TRACK 



The Kickable Computer lets you abuse your computer without losing data. 



Computer Kicks 

Frustrated computer owners take heart! Computer 
Novelties offers a computer you can kick, stomp, or 
throw against a wall without losing valuable data. 

The Kickable Computer ($9.95 plus $2 shipping) is 
made of foam rubber-like material to take whatever 
punishment you inflict. The computer's monitor fea- 
tures the Universal Pie Chart— it applies to all data, 
eliminating the need for costly graphics software. 

In addition, the Kickable Computer features the no- 
touch keyboard and the Groundless Optimism key for 
important business plans. 

The computer includes a complete operations man- 
ual, "disk drives," plus a sample stick-on upgrade kit 
that lets you install up to 640 "K." Options include a 
foam antenna (for pulling in hard-to-get programs), a 
memory upgrade kit, and a repair tool (for hardware 
and software). 

For more information, contact Computer Novelties 
at 1600 Downs Drive, Suite 4, W. Chicago, II 60185 
312-231-8420. 

Reader Service s 562 



Circle 164 on Reader Service card. 



Circle 103 on Reader Service card. 



TRS-80 

TRS-80 Radio Shack 
Computers 



TRN80 4P2DiskDrivc64K 


... $975.00 


TRS-MloB 2 Disk Drive 2S6K 


S362S.O0 


TANDY 2000 2 Di>k Drive 1 2MK 




TANDY 2000 W 10 Megabyte Hard Disk 


$3350.00 


TANDY VM-I Monochrome MooilOf 


$170.00 


TANDY CM 1 Color Monitor 




DM P 400 Primer 




DWP-4 10 Printer 




Oaisv Wheel 11 Kck.SIW.OO 


$998 00 



Huge Savings Up To 30% 

On 

Printers • Computers 

Other Radio Shack Items 



B 



CASHIERS CHECK 

OK 

MONEY ORDER 

MUST ACCOMPANY ALL 

ORDERS! 



M Computers 

^ Box 66 

. 806-653-5961 FoUett, Texas 79034 



BRICKWARE 

If you invest in brick and mortar, then you should invest 

in our brickware, Investor lll T \ Designed by real 

estate professionals to work on the IBM PC or TRS-80, 

Investor III™ is a comprehensive software package that 

aids in investment analysis of property, whether 

commercial or residential, small or large. It shows 

i both the tax and cash aspects of an investment opportunity 

] and is flexible enough to allow you to vary a number 

of key assumptions (such as cash flow, phased investments, 

multiple mortgages, and tax parameters) and see the 

results in an instant. So if you are serious about brick 

and mortar, look at our brickware. It will help you lay a 

p™!!!!"!'!" 1 "- solid foundation for your investment strategy. 

Contact your local dealer. 





POCO 



SOTTLUQRlz CORP 

A Division of The Goodman Group, Inc. 

1 2900 Preston Road 

Dallas, Texas 75230 

(214)239-6085 

$249.00 Suggested Retail 

Making dollars and sense 

out of information. 

80 Micro, March 1985 • 127 



ASK TANDY 



] 



Tandy: MS-DOS Means 
More Than "Me Too" 



Send your questions about Tandy 
products and services to Ask Tandy, 
80 Micro, 80 Pine St., Peterborough, 
NH 03458. 

\£l Does Tandy's introduction of a 
family of MS-DOS computers mean 
you'll be cloning IBM's every move? 

At No. When we introduced our 
first MS-DOS computer, the Tandy 
2000, it was the highest performance 
MS-DOS machine available (IBM fi- 
nally has a Tandy 2000 competitor, 
the PC AT). The Tandy 1000 has a 
high level of software compatibility 
with the IBM PC, but it's not a clone. 
It couples PC functionality with en- 
hanced graphics and sound at an un- 
heard-of price. Our goal is products 
that take advantage of the huge MS- 
DOS software base, yet that go be- 
yond a "me too" approach. 

\2 t Despite references in the Model 
4 owner's manual to TRSDOS sup- 
port of double-sided drives, I was 
unable to get any answers from Fort 
Worth about how to use them. Why? 

At LDOS has support built in for 
double-sided drives, even drives of 
different sizes, as we recall. Radio 
Shack has never intended to support 
those capabilities, but neither did we 
remove them. Logical Systems, au- 
thors of LDOS, can supply informa- 
tion on some of those feature we don 't 
support. 

(^t I work in a school system, 
teaching computer education on a 
limited budget. I've read that you 
give 100 hours of training to your 
sales people. Could I get or use some 
of that material for my classroom 
work? 

A t The training material we use is 
sales-oriented, and wouldn't be of 
much use in a classroom environ- 
ment. Our training isn 't all classroom 
work either; part of it is on-the-job 



training administered by field man- 
agement people. Sorry, but we don 't 
think it would fit your needs. 

\Jl I hear that a company other than 
Tandy manufactures the new Tandy 
1200 HD. Does the same company 
make the Tandy 1000? 

At The Tandy 1000 is a new design 
by Tandy engineers, and is built at a 
Tandy factory in Fort Worth, TX. 

Qt Now that Tandy's line of busi- 
ness computers includes the 1000 and 
1200 HD, do you plan to continue ful- 
ly supporting the Model 11/12/16 line? 

At The 11/12/16 family provides a 
great expansion path from a highly 
functional 8-bit computer to a multi- 
user 16-bit system. We don't plan to 
support multiuser operation of the 
1000 or 1200 HD, nor will we abandon 
the 11/12/16 family. 

Qt So far, Tandy has introduced 
high-end, mid-range, and consumer- 
priced MS-DOS computers. Any 
plans for a fourth MS-DOS computer 
priced under $1,000? 

Al No. 



Qt Will Tandy offer any trade-in ar- 
rangements to Model I/III/4 owners 
who want to buy a Tandy 1000? 

A t Radio Shack stores aren't pre- 
pared to handle used hardware, and 
have never offered trade-ins. We have 
no plans to change that policy. 

Qt I'm considering replacing my 
Model III with a Tandy 1000. Can I 
access some of my Model III ASCII 
files with the Tandy 1000, maybe via 
cassette? 

At The Tandy 1000 has no cassette 
facility. However, ASCII files are 
ASCII files. You could transfer them 
via the RS-232 port with communica- 



tions software. You could probably 
use text files, but data files would be of 
questionable value, unless the same 
program is available under MS-DOS. 
But it's not guaranteed they'll work. 
Commercial programs to convert 
from TRSDOS to MS-DOS format 
are available; look for ads in 80 Micro. 

Qt Does Tandy really answer the 
Ask Tandy questions? Are Tandy/50 
Micro relations that good? If so, why 
isn't Ed Juge writing his Inside 80 col- 
umn again? 

At Yep, it's really Tandy. Relations 
between Tandy and all of our support 
publications are excellent. Relations 
with 80 Micro have never been better. 
Ed would probably do Inside 80 
again, but the editors apparently feel 
Ask Tandy is more useful to readers. 

Qt I have a new 128K Model 4. Why 
does the PRINTMEM command pro- 
duce a figure of 29,924 (or less) instead 
of a number nearer 128,000? 

At An 8-bit computer can count 
only as high as 64K, so the use of more 
than 64K of RAM requires switching 
between banks of memory. The mem- 
ory management needed to bank 
switch from Basic would cut your 
computer's operating speed by at least 
half, and would add substantially to 
Basic's size and complexity. I'm not 
aware of a Z80 bank switching Basic 
version. The only way to access the ex- 
tra 64K is through the use ofMemdisk 
or by machine language. 

Qt I have a Model 4P. Can I hook it 
up to my Model 1 monitor? 

At Anything is possible if you know 
how. But you'd have to attack your 
computer with a soldering iron, a 
practice we discourage. You could 
cause damage, and you'd stand a good 
chance of raising the RFI (radio fre- 
quency interference) radiation beyond 
the limits the FCC allows. ■ 



128 • 80 Micro, March 1985 



Circle 266 on Reader Service card 



T/Maker 
Integrated Software. 
Simple/ Power ft 



Well Liked 



<v 



o 



W 



\ 



^ 



.0 



P*VU 



o* 



6 e 



< /V 



,fci 



"The program is a 
pleasure to use. . . 
[it] is well imple- 
mented, well docu- 
mented, and is quick 
in operation. It de- 
serves an AA rating.' 
-F.M. Rcmley 7 83 



INIERFACE AGE Magazine 

'After using T/Maker for some time, 
my reaction is that this program 
accomplishes its job simply and 
without effort.'' 

-Michael Heck, 3/84 



InfoWorld 

TIM Nruiincklt (Of MlamimpuBr I ..r ■ 

"T/Maker is a superb product! I have yet to 
see anything that comes close to its level of 
system integration, overall ease of use 
and general sophistication." 

-Tim Dancliuk 7 N 83 



<P 



.0 



V 



^ 





Excellent 


Performance 


*" 


Documentation 


k* 


Ease of Use 


v* 


Error Handling 


y 



you regularly 
prepare documents 
combining text, 
charts, and lists, 
... if you belong to 
an organization 
that uses several different kinds ot 
microcomputers ... if you want to 
reduce the training burden and 
improve the capability of sharing 
files. T/Maker can become the 
key program in your software 
library." 

-Frank J. Derfler i< 4 84 



POPULAR- 



COMPUTING 

"T/Maker is an excellent choice. . . Unlike the other 
(integrated) programs, it is available for the vast 
number of 8-bit computers running the CP/M 
operating system as well as for the more powerful 
16-bit computers." 

-MicnoelJ M,llcr 12 83 



Everything in ONE 
Program. 

AlsoforlANDY 1000 (128K) 

and TANDY 1200 & 2000, IBM PC & PCjr. 

Suggested Retail: $450 

Ask your local Radio Shack Center for more 
information or call: 
T/Maker Company 
2115 Landings Drive 
Mountain View, CA 94043 

415/962-0195 



f I Integrated Software 

Word Processing 

Spread Sheet Analysis 

Relational Data Base Management 

Spelling Checker 

Bar Chart Graphics 

Plus On Line Help 



I T.'Moher Company 
Peelings II quote from T/Moker III". V4N7 C 1984. Peelings II. Inc. reprinted by permission, oil right! reserved InloWorld quote from T/Muke- III. A General-Purpose CP/M Program c 19B4 InluWorld ■,_; 
by permisvo" al rights reserved PC Magajine quote from Prepare to meet Your T/Moker". V3N7. C 1984, PC Communications, Corp , reprinted by permission all rights reserved Popular Computing quote Irom 
"T/Maker Otters a Different Approach 12/83, t Byte Publications. Inc , reprinted by permission, all rights reserved Interface Age quote from T'Moker III, Integration at a rVlodest Price . V9N3, £ 1984 Interface 
Age Mogojine, Inc . reprinted by permission, oil rights reserved. Reprints ovailoble on request. 



Circle 9 on Ruader Service card. 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80" (Model I, II, III, or 16) • APPLE "• IBM" • OSBORNE" • CP M "• KAYPRO' 



**«5 



I. ...I* ' *«'£■* |FfY» 

ri^n ii 1 1 r < t *- 




ersaBusiness" Series 

Each VersaBusiness module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VersaReceivables- 



$99 95 



monthly statement-generating system It keeps track of all information related to who 
owe* riatK billing tor past due at 

count lis all necessary statements, invoices, and summary 

rNTOKY - *. 

VERSAPAYABLES" $99.95 

i rack of current and aged payables, keeping you 

K h with all information regarding how much money JfOUT company owe - 
whom VFR- >mplete record on each vendor, prints checks, 

check registers, coucheis. transaction reports, aged payables reports, vendor reports, 
and mora WithVEH /en let your computer automatic.! 

which vouchers are to be paid 

VERSAPAYROLL'- $99.95 

VERS werful and sophisticated, but easy to use payroll system that 

I information. Complete employee records 
are maintained, aixi all necessary payroll calculations are performed automatically . with 

an be run totally, automati 
cally. or the operator can intervene to prevent a check from being printed, or to alter 

! 

VERSAlNVENTORY " $99.95 

mplete inventory control system that gives you instant access 

to data on any item VERSA INVENTORY™ keeps track of ail information related to what 

i >n backorder, etc.. stores sales and pricing data, ak-rts 

you u i ow a preset reorder point, and allows you to enter and pnnt 

riyur to link with the VERSaRECEIV'ABIFS- system VERSA INVENTOR' 

all needed inventory listings, reports of items below reorder point, inventory value re 
I date sales reports, pnee lists, inventory checklists 

•CQMPLITBQNICS; 

50 N. PASCACK ROAD, SPRING VALLEY, NY. 10977 



VERSALEDGER II" $149.95 

VersaLedger IP" is a complete accounting system that grows as your business 
grows. VERSALEDGER If can be used asa simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger II'" gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor feed checks, 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 

i ngs, etc 

VERSaIj-;x;h-: ir" comes with a professionally-written 160 page manual de- 
signed for first time users. The VersaLedger II*" manual will help you become 
quickly familiar with VersaLedger II*", using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Everv VERSABl SINt SS • • 
and ,ii .1 irat ton ot thai cott 



A.: I V M 
■M BASIC 



->r BASIC W 



: -i all other competitive systems. 
: i j: . . Vt HSABUSINESS'' module, you 
M . V-l HsaBLSINESS"" module may be 
-chase ot that module 
M«r-,*ort BASIC 



To Order: 

Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 



* add S3 for shipping in UPS areas 

• add $4 lor COD. or non-UPS are 



• add $5 to CANADA or MEXICO 
' add proper postage elsewhere 



DEALER INQUIRIES WELCOME 

All prices and specifications subject to change 





Delivery subject to availability 

I. tr jdemarkAppto Corp IBM PC trademark IBM Corp OSBORNE trademark ( i X trademark Xerox Corp KAYPRO 

i.-mark Sjnyc I iemark NEC Corp - DEC trademark Digital Eiju«jwnrrrt Corp ZENITH ir. 

TI PROFESSIONAL COMPUTER trademark Texas Instruments, Inc ■ SUPTRRRAJN trademark Intertec Corp CP M i-ademarK On ' PSTON trademark Epson Corp